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ABSTRACT 


This thesis presents a model of heat transfer phenomenon 
in thrust vector control systems, using the PHOENICS 
computer code. 

To simplify the problem of heat transfer to solid 
objects in rocket exhaust, simple wedge bodies have been 
examined in supersonic gas flow for both turbulent and 
laminar flow cases. 

The study gives an estimate of skin friction  coeffi- 
cient, surface heat flux, heat transfer coefficient, Stanton 
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I. INTRODUCTIO 


The use of external aerodynamics in the control of 
rocket trajectory, necessiates an active control system 
which generates a force on external surfaces to accomplish 
specified trajectory changes, and to balance external 
disturbances such as wind and pressure forces. This type of 
trajectory control is most effective at high velocities and 
low altitudes. At high altitudes or low velocities the 
effectiveness of external surfaces for missile maneuvering 
or trajectory control decreases markedly. Under these oper- 
ating conditions other control mechanisms must be used such 
as jetvanes and jet tabs. Adding a jet vane or a jet tab 
into nozzle exit, a capability to change and control the 
direction of thrust can be obtained. The basic principle of 
thrust vector control by using vane has been shown in 
Figure 1.1 | 

Jet vanes are a preferable means) or Chrust vector 
control, provided the following requirements can be met: 
simplicity of design; minimum weight; minimum material 
erosion for maintenance of lift effectiveness; minimum 
thrust loss or drag; adequate load carrying ability for the 
duration of firing; readily producepie pilosum oss 

The heat transfer modelling of thrust vector control 
vane requires a boundary layer analysis. Following Prandtl, 
the classical method of solving viscous boundary layer type 
problems first calculates a streamwise pressure distribution 
from purely inviscid considerations and then calculates the 


boundary layer development under the influence of this 


inviscid pressure distribution. No attempt is made to 
correct the inviscid pressure calculation form Viscous 
effects originating in boundary layer region. Obviously, 


such a two step procedure can be valid only if the pressure 


distribution calculated ignoring viscous effects is a 
sufficiently good approximation to the pressure distribution 
нен асспайб” ogcurs. In many cases of practical interest, 
the inviscid pressure distribution is an excellent approxi- 
mation to physical reality and in these cases the classical 
two step procedure is valid. 

The rapid development of both numerical techniques and 
computer capability now have made it practical to apply 
Navier-Stokes calculation procedures to the boundary layer 
problem. Since the Navier-Stokes equations represent the 
exact equations of motion, they contain no approximations 
other than those made in connection with turbulence 
modeling. For example the assumption of constant pressure at 
any stream wise station which is inherent in most boundary 
layer procedures and which may be in serious error in super- 
sonic flow is relieved in the Navier-Stokes approach. 
Further more, the approximation of convective terms in the 
separated flow regions which 6 necessary for numerical 
stability in boundary layer calculations is not required in 
the Navier-Stokes calculations. | 

The advantage of the Navier-Stokes numerical solutions 
must be balanced against certain disadvantages such as code 
complexity, code run time and code storage requirements. A 
consideration of both the advantages and disadvantages of 
Navier-Stokes numerical solutions indicate that potentially 
increased accuracy of this approach may well balance out the 
increased requirements in computer storage and run time. 

Recently numerical solutions of the Navier-Stokes equa- 
tions Бу а variety of authors) including Baldwin and 
Maccormak [Ref. 1], and Shank, Hankey and Law [Ref. 2], have 


compared predictions for a series of incident shock wave 


boundary layer interactions with experimental data. Good 
agreement was obtained between the calculations and 
experiment. 


The present work addresses the heat transfer modelling 
of thrust vector control systems. In this effort the 
Navier-Stokes approach is applied bv using a computer code 
which is capable of simulating a large number of fluid flow, 
heat transfer and chemical reaction processes which arise in 
industrv and elsewhere. The name of this code is PHOENICS. 
PHOENICS is an acronvm standing for: 'Parabolic, Hvperbolic 
Or Elliptic Numerical Integration Code Series'. The name 
comes from the fact that the differential equations of fluid 
flow etc. arise in forms classified bv mathematicians as 
paraboiic, hvperbolic or elliptic; and PHOENICS solves these 
equations, whatever their form. 

Built into PHOENICS are the major conservation laws of 
physics (mass, momentum, and energy) applied to a large 
number of contiguous subdomains some times called 'cells', 
into which the domain of study is artificially divided. The 
number of cells can be few or manv according to the require- 
ments of the problem. Because of the numerical stabilitv the 
restriction on cell refinement, can become particularly 
burdensome in the calculation of a turbulent boundarv laver 
where a verv fine mesh near the wall mav be required. 

When supplied with appropriate information concerning: 
the phvsical properties of the materials ; the geometrical 
and other constraints; the inlet and/or initial conditions; 
PHOENICS computes the corresponding solutions to the rele- 
vant differential equations, expressing them as tables of 
numbers describing the field of velocity, temperature, 
concentration etc. 

Detailed information about  PHOENICS is given JEN 
I Ref. 3), 


IO 





Flgure 1.1 TVC Using Vane. 
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II. THEORETICAL BACKROUND 


A. A BRIEF DISCUSSION ON NAVIER-STOKES APPROACH 

Rapid advances in both numerical analvsis and computer 
techonologv make Navier-Stokes procedures a possible alter- 
native to boundary layer procedures which are necessary for 
heat transfer modelling of thrust vector control systems. 
Solutions based upon the Navier-Stokes equations need not 
make an arbitrary division between viscous and inviscid 
portions of flow field. In addition, Navier-Stokes proce- 
dures solve a full transverse momentum equation and need not 
make any approximation to the convection terms in separated 
flow regions. These considerations indicate that even if a 
Navier-Stokes procedure requires much computer resources 
(storage and run time) its potentially increased accuracy 
may make it an attractive alternative. 

1. Governing Equations 

| In this effort to obtain governing equations, one 
phase flow and negligible source term contributions have 
been assumed. Under these assumptions the basic equations 


in кетэ reduce to the following: 


CONSERVATION OF MASS 


ƏP = — ç. (p М) (eqn 2.1) 


CONSERVATION OF MOMENTUM 


Й (eqn 2.2) 
met b ) + ç. Со J b — H 
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Where Z's аге the v, w velocity components for y and z 


directions, and the velocity vector is; 2 = v j] чи Ë 


CONSERVATION OF ENERGY 


к Jo E ш 
Sp f հ) * v.(g Vh EJ vh) z t (ean 2.3) 


where h is the stagnation enthalpy of the gas and Tg is the 
stagnation temperature. 

In the case of laminar flow the governing equations 
(2.1), (2.2), (2.3) are sufficient to determine a solution 
when proper boundary conditions are applied. 

However in turbulent flow it is necessary to hypoth- 
esize a turbulent model relating the turbulent viscosity to 
the other problem variables. 

2. The Turbulent Model 
The Model used in this effort is k,€ model, which is 


used in  Phoenics [Ref. 3], where k is turbulent kinetic 





energy and € is the rate of dissipation per unit volume. 
To obtain turbulent flow solution following turbu- 


lent model equations have been used by PHOENICS. 


(eqn 2.4) 
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where the constants C,, Co ,% ,& ,) are automatically 
provided in PHOENICS. 


ЗА Grid Generation and Use of the Non Uniform Grid 


The accuracy of solutions which are computed with a 
given number of grid points often can be improved by using a 
nonuniform grid spacing to ensure a finer mesh where the 
solution varies rapidly. In the interaction flow field 
large gradients are present near the wall and consequently 
fine grid resolution is desired in this region. 

Within each cell is a "typical point (called a grid 
node )" for which the fluid property values are regarded as 
representative of the whole cell. 

Discretization, interpolation, and integration of 
these equations leads to finite domain equations "FDE's" 
having the form: 


14 


Where subscripts have the meaning; 
node) within cell, N, 


neighbour node, E, 


P, tvpical point (i.e., 
north neighbour node, S, south 


east neighbour node, W, west neighbour 


node, H, high neighbour node, L, low neighbour node, T, grid 


node at earlier time, aa, etc are coefficients, and b is 


a representation of the source of Q for the cell. 





Figure 2.1 Use of Grids. 
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In this effort the typical TVC vane as shown in 
Figure 3.1 is approximated by the wedge geometry shown in 
Figure 3.2 This geometry consists of two sections. First 
section has an inclination of 4 degrees with respect to 
symetry axis and the second section is the flat part which 
has 3.2 milimeter length. The total length and the thickness 


of the vane are 95.2 and 6.4 milimeters. 


A. PROPERTIES 

For both laminar and turbulent flow cases the proper- 
ties were given as follows: 

stagnation pressure (Po)=55*10Pa 

Stagnation temperature (To)=555.55 K 

Gas constant-287 Joule/kg. K 

Specific heat ratio-1.35 

Constant pressure specific heat (Cp)-kR/(k-1) Joule/kg. K 


Density p = p (DE 1/k NOM 
о р E 
О m 
where subscript o represents stagnation values. (Except 


across the oblique shock, this isentropic assumption is true 
in the whole flow field. ) 


Viscosity w= 0.1716 * 10 “x (“555 Тасы М 


where T is static temperature, in ii 
In addition to properties above, for the turbulent flow 


case an effective viscositv is used. 


С. ? К (eqn 3.1) 
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BENE INITIAL FIELDS 


Necessary values to initialize the for 
laminar and turbulent cases, assuming isentropic flow 
calculated as follows: 

Mach number M=3. 2 

Density 

ie "o (eqn 

ЕЕС СО СС 1/0/51) 
(| + --7-д---- М”) 


р 
Рр - ---------- T 
D LC TST " ) 
Sonic velocity 
7 
E NN Rn TOM: 


Velocity in Z direction 
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( eqn 


( еап 


(eqn 


(eqn 


both 


were 


Ко, 


.3) 


.4) 


SD) 


. 6) 


In addition to the quantities above for the turbulent 
flow case turbulent kinetic energv terms and dissipation 
terms were specified as follows: 


Turbulent kinetic energv 


b. 
из оса Joule (eqn 3.7) 


Dissipation term 


(13) Joule (eqn 3.8) 


where GH is the thickness of the TVC vane. 
C.  BOUNDARX CONDITIONS 
1. s yaa Conditions at the Upstream and Downstream 
For laminar flow at the low side of the computa- 
tional domain, mass flux, velocity in the flow direction, 
and enthalpy were specified. | 
For the turbulent flow problem, in addition to the 
boundary conditions above the turbulent kinetic energy and 
dissipation terms were specified at the low and high side 
boundaries. | 
2. Boundary Conditions on the Wall 
At the wall, normal and tangential velocities were 
set to zero. Enthalpy at the wall was given by using a wall 
function. Details of the wall functions will be given in the 
next section. 
Using awall function the heat transfer rate is 
evaluated from the Chilton-Colburn form of Reynolds analogy, 


in which the Stanton number (St) is related to the friction 


ES 


coefficient (Ср) as follow: 


> шесто зли 


where Pr is the laminar Prandtl number. Cpis related to the 
wall shear stress (0(,) and the velocity paralel to the wall 
(W) as follows; 


Tw 

С, ш ------ 577 Cognos 10) 
ром 

аша: мей! ЁЗ... 
ты TA (eqn 3. 11) 

2 

Ay | , 5 

where —— is the distance from the wall to the center of 


a 
the first cell. 


The heat transfer rate per unit area at the wall (Q) 


is then deduced from 


O = st ç w (h Հա) | 
Р (еап 3.12) 
where h. is entalpy at the grid node and, h, is enthalpy 
corresponding to the prescribed wall temperature 


та р м (еапй 13) 
where Ср is constant pressure specific heat and T.. is the 
wall temperature 

In the analvsis of the laminar flow case, instead of 
activating the wall function, the velocity at the wall has 
been given as zero because of the no slip condition and the 


enthalpy at the wall has been given. 
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D. WALL FUNCTION 

The wall problem in the numerical computation of flows, 
especially in turbulent flow, is an old one and most authors 
have adopted similar techniques. In effect they "bridge 
over" the region very close the wall, by introducing special 
functions which are called wall functions. These are often 
empirical in origin. Accounts may be found in the books by 
Gosman Et Al (1969) and Spalding (1975) 

The problem arises as follows. Turbulence dies out, 
close to the wall, because no slip condition and the rigi- 
tidy of the wall make all the velocity components fall to 
zero. The consequence is that the effective viscosity and 
other transport properties, fall there to their laminar 
values and the result 1S а тарта ara as m With distance 
from the wall both of the @'s and of their gradients. 

It is possible to compute these variations in detail, by 
using a computer code such as PHOENICS on two conditions: 

(1) the grid points must be packed into the region of 
steep gradient changes closely enough forssufficient nummers 
ical accuracy to be obtained 

(ii) the functions appearing in the turbulence model 
equations must properly represent the influences of local 
Reynolds number on turbulence 

Under the conditions above, the wall function sequences 
in the program act as follows: 

The Reynolds number is first evaluated, based on the 
resultant velocity paralel to the wall, on the distance from 
the wall to the grid node and on density and laminar 
viscosity. If this Reynolds number is less than 132.25 (the 
value at which the laminar and turbulent wall function 
intersect) a laminar wall function is used. ТЕ “this 
Reynolds number turns out to be greater than 132.25 the 
velocity variation is logarithmic and the corresponding 
shear stress coefficient is evaluated. This corresponds to 


the commonly used "log law " wall function. (Ref. 4), 
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КО GRID SYSTEM 
To obtain a fine grid resolution in the boundary layer 
for the laminar flow case the first five cells in the y 


direction from the wall obey chesto Towing pProportionality 
relationship 


BYFRAC(IY) = (ՀԶՀ 0)"  ( ---252- 
J 


Where BYFRAC(IY) is the distance from the south side to the 
north side of the cell of particular interest, divided by 
роба! length of the domain, IX is the cell number, 4A,,, is 
maximum allowable cell height, and GH is the thickness of 
the TVC jet vane. 

A fine grid resolution for the turbulent flow case is 
set up in the same way as laminar flow. The Only difference 
comes from the selection of the first five cells in y direc- 
tion.The Following calculation shows the difference. 

from the laminar solution and given properties the 
following are known. 

w=885.2 m/s 

Pl am=1*10 N. s/m 

Ро-5.5%10 Ра Е 

Pstatic-1.048*10 Pa 

k-1.35 

f=1. 835 kg/m 

Using the values above and the lenght of vane, which is 


0. 095m, A corresponding Reynolds number was calculated: 
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Using power law expressions 


-Ք. = 0.37 * Re ds eun щн. 


< 


From equation 3.14 the boundary layer thickness at the 
high end of the domain have been calculated as 5 5 2. 107A 

With Re based on w, the velocity paralel to the wall, 
=~ the distance from the wall to the first grid node, Pas the 
density, and 4),, the laminar viscosity. Ay must satisfy 
the condition 


=o 
Ќе! чисто O o ду > 6-48 * 10 ^m 
Therefore the interval of Ay is chosen such that 


«ոթ 


СРЕ НЕ 6 
a TO. ду 


ЕНЕ TO =m 


`, 
б 


In this effort using the relationship 


BYFRAC(IY) = ( ----- ) 82,2 


Ly has been calculated аз Лу = 8 ж to^" m which is in the 
required interval. 

For both laminar and turbulent cases, cells in thez 
direction were adjusted so that the points where possible 
physical phenomena such as shock wave and expansion fan are 
expected, very fine cells were generated. In the other parts 
of the domain larger cells were generated. In this effort 
the grid system was made up of 25 cells in the y direction 
and 22 cells in the z direction. The grid system for laminar 


and turbulent flow is shown in Figure 3.3 and in Figure 3.4 
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Figure 3.1 General Configuration of a TVC System. 
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Figure 3.2 Geometry Used in the Model. 
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Grid Svstem for Laminar Flow. 


Figure 3.3 
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Figure 3.4 





Grid Svstem for Turbulent Flow. 
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IV. DISCUSSIQN ON QUANTITATIVE DISTRIBUTIONS 


A. MACH NUMBER DISTRIBUTION ! 

The expected oblique shock originates at the leading 
edge of the TVC vane. The shock angle was calculated using 
oblique shock theory as follows: [ Ref. OE 


՛ ә 

2 cotanf ( М7 sing – 1 ) 
է`... (օզո 4.1) 

мү ( | + cos(26) ) + 2 

: 
Г М, ( k + ՇՕՏԲ ) ՀԶ J tano 
(eqn 4.2) 
2 

ae GOtanek ( M sing -1 ) 


1 


where B is shock angle and 08 is deflection angle (4 degree 
for this analysis). | 

Using equation 4.2 and equation 4.1 the shock angle has 
been calculated as В -20. 99 degrees. To calculate the Mach 
number across the oblique shock, the following procedure has 
been followed. | 


М. sing 


ште 


where M is the normal Mach number immediately before the 


oblique shock 


ШЕ ա -. (eqn 4.3) 


mere k is К-1.35 апа М2, is the Normal Mach number after 
the oblique shock, from the equation above M, has been 


Ա 


calculated using the relationship 


M (eqn 4. 4) 


where M, is the Mach number after the oblique shock. 
After obtaining the Mach distribution from the PHOENICS 


solution the points of 


--- 


in the domain have been plotted for the laminar and turbu- 
lent flow cases. Calculated slope angles of the oblique 
shock lines for both laminar and turbulent cases are 20.7 
and 2a. degrees. 

The reason for selection of Mach number of M-3.1 points 
in the computational domain is to take into account the 
uncertainities between the starting and ending limits of 
oblique shock phenomenon. 


The pressure ratio is calculated using the relation 


I DD N | (eqn 4.5) 
P Ն ՔՀՎ1 1 k+i 
P 
Therefore 5շ /Ջ has been calculated as = E - 1.36 
1 
and p, has been calculated as Բշ ш 1.26 Р = 1.426 * 10" PŠ 
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To take into account uncertainities an average pressure 
value has been calculated as follows: 


P = —-—- 2 1.227 ж 10” Ра 


Investigating the locations where p-1.237*10 Pa in the 
computational regime corresponding points have been found, 
the same as the points corresponding to M=3.1 points. From 
the calculations above the location of the oblique shock has 
been presented in figures 4.1, 4.2, and 4.3 


E SKIN FRICTION DISTRIBUTION 
laminar Skin EmictionvDistribution 
From the incompressible Blasius solution [Ref. 4], 


skim friction coefficient is: 


(eqn 4.6) 


Figure 4.5 shows the Շբ distribemron according to the 
pEl9asdus solution. 
Applving pressure and viscositv correction factors 


to the incompressible Blasius solution, the following form 


of the Blasius solution is obtained. [Ref. 4], 
P C, 1/9 (eqn 4.7) 
C = 0.664 ( ------ ) թ 
f Re. 
p = 
where Р = пар е ) t ; 
Фо (D 


This corrected skin friction distribution is shown in 


Figure 4.6 
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Using the PHOENICS flow field output, Շբ has been 


calculated as follows. 


m SD сод Se © 4 
Ce 1 a Ти _ hy _ 
"з 


Փ 2 
Figure 4.7 shows the Cp distribution from this procedure. 
Comparison of three Ср VS Z graphs in figure 4.8 
shows that, the solution for laminar flow over the vane is 
consistent with the Blasius solution in terms of general 
tendency. The jump in PHOENICS solution near the downstream 
end of the vane occured because of the geometry change from 
the inclined part of the vane to the-flat part of the vane. 
Other deviations from the general tendency comes from the 
numerical instabilities in PHOENICS. 
2. Turbulent Skin Friction Coctr лел ԱԽՏ ՆԱԵ ՆԵՐԱ 
For comparison of the turbulent skin friction coef- 
ficient distribution, a flat plate solution has been used. 


Ce for a flat plate, assuming incompressible flow is 


[Ref. 4], 
C,= --22522------ (eqn 4.8) 
In 0.06 Re. 
Relation between ¢ C, ) ( is 
є сотр апа - Ye 
[Ref. 7], 
( С; ) | 
րա. Ор аа — —À (eqn 4.9) 
Cast ) k= £ 
f InG | + ----- H 


where r denotes the recovery factor which for turbulent flow 
uU 
is r-Pr I Ref. 7], 
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(e m 
Calculated result o£ z724- 520P ratio is 0.4 


Therefore the compressible skin friction coefficient Cp can 
be written as 
0.455 


—————— ) ж 0.4 еа ал шо) 


The Corresponding Cp vs z distribution is given in 


Figure 4.9 
| | | աթ) 
Figure 4.1 shows the relationship LUC o and 
dal 
Mach number M which is taken from [Ref. 4], f inc 
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Entering the Figure 4.1 for E ec а eeu 
MN " {б comp 
аа точ P- has been obtained as z-z------- - 0.77 
(E ). (c IT | 
f inc 4 inc 


ри this Correction factor to equation 4.8 and using 
this updated equation for the Շբ calculations the corre- 


sponding graph in Figure 4.10 has been obtained. 


sul 


In the calculations’ using PHOENICS ЕТО Киа She 


following relation has been used. 


т p К 4 
С = em ss We иа (eqn 4.11) 
f 2 "unc 
i) Ж р Ն Ng сни 
To obtain equation 4.11, turbulent kinetic energy equation 


has been used as a starting point. [Ref. 5], 


H 


G. E EM ae ) 
"sp NE 6, ay (eqn 4. 12) 
ц u 2 
+k [ ——— í 22- f - C -2--*- 1 
լ ЗУ T 


The Source term of the turbulent kinetic energy equation 
should be zero near the wall which means 
ար 


= 

. le d 13) 

lle ( 2. оно сна ВИА, (eqn 
k ay Dy 


EN 


therefore the shear stress on the wall can be defined as: 
p k (eqn 4.14) 
where k,,is the turbulent kinetic energy on the wall, m is 


p 7 0.09 [Ref. 5], 


Substituting the values above into the Blasius skin friction 


the density on the wall and Co is e 
relation the C, equation becomes: 


De qa + (eqn 4.15) 
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Using this equation a Ce VS Z graph in Figure 4.11 has been 
plotted. 

Comparison of those three graphs in Figure 4.12 
shows that a general consistency in tendency can be 
observed. The jump in the PHOENICS solution comes from the 
geometrical change of the.vane, as in the laminar flow case. 
Ihe other deviation from the general tendency comes from the 
numerical instabilities of PHOENICS. 


C. LAMINAR HEAT TRANSFER DISTRIBUTIONS 
In the laminar flow analysis the heat flux has been 
calculated using an equation as follows for every cell over 


the surface of the vane. 


0 + -- к--В---7- (eqn 4.16) 


where hp is the enthalpy at the grid node, т, лер спе 
enthalpy at the wall and 22 is the distance from the grid 
node to the wall. ' 

Equation 4.16 has been obtained using the following 


procedure. 


The corresponding heat flux distribution is shown in 
Figure 4.13 
The Stanton numbers have been calculated by using the 


heat flux calculations. The Stanton number equation is 


Gt 2 ——-—-—-————--———— (еап 4.17) 
| Վ 
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The denominator of equation 4.17 has been obtained from the 
following relation between the recovery temperature and 


stagnation temperature [Ref. 6], 


(eqn 4.18) 


where Tr is recovery temperature, To is stagnation tempera- 
V2 


ture and r is recovery factor which for laminar flow is r-Pr 


This qives 


D h 
To = are See and udis 0.9 hg 
a 
therefore 
2. | = av 
St = ԱԼ ա Արի a D sus a ho MONS 
о 0 о 


where h, is the recovery enthalpy and h,> is the stagnation 
enthalpy The distribution of Stanton number is shown in 
Figure 4.14 

Using the definition of Stanton number, the heat 
transfer coefficient has pesen a cnm 2 

A ше Әй ' (eqn 4.19) 


and the H distribution over the surface has been plotted in 


Figure 4.15 


D. TURBULENT HEAT TRANSFER DISTRIBUTION 
In the turbulent analysis taking advantage of following 


skin friction correlation; < n ë 
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The Stanton numbers has been calculated using the Colburn 
analogy. 


£ -2/3 (eqn 4.20) 
Stanton number distribution is shown in Figure 4.16 Using 
the calculated Stanton numbers. The heat transfer coeffi- 


cient distribution has been calculated from 


НЕ р м ЕС (eqn 4.21) 
Փ Փ ք 


Heat transfer coefficient distribution is shown in Figure 
4.17 From heat transfer coefficient values, heat flux 


distribution has been calculated: 


ԱՅԾ се | աե ) (օգո 4.22) 


This equation has been obtained from the following proce- 
dure. [Ref. 8], 


и n 4.23 
Q =p w St (h -н ) (eq ) 
Փ Փ r Ww 
substituting for Stanton number, gives 
от. goto. qu. eros (eqn 4.24) 
e r ՆՎ 
ք 
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Using equation 4.18, equation 4.24 vields; 


О = Buou ( 0.?28 h` =h ռ (eqn 4.25) 
աք Օ м 


A Graph of the heat flux distribution is given in 
Figure 4.18 

The corresponding computer programs and tabular distri- 
bution values have been included in appendices for both 


laminar and turbulent flow solutions. 


E. DISCUSSION ON CPUTTIME 

Comparison of the laminar and turbulent solution in 
terms of cpu time can be seen on the next table. The values 
below have been evaluated for the same continuity error of 
7.416*10 and 100 "sweeps". Continuity error implies the 
residual error of mass imbalance for the particular cell 
which has been used as a control cell and "sweep" implies a 


sequence of iterative steps through the integration domain. 


IABLE I 
CPU TIME COMPARISON 


ТОЛА CPUFEIME 


LAMINAR 147 seconds 
SOLUTION 
TURBULENT 188 seconds 
SOLUTION 
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Figure 4.3 
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Figure 4.4 


Oblique Shock Relative to Vane. 
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Figure 4.5 Laminar Flat Plate Solution. 
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CORRECTED BLASIUS SOLUTION 
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Figure 4.6 Laminar Blasius (Corrected) Solution. 
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Figure 4.7 Laminar (Phoenics) Solution. 
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Figure 4.8 Comparison of Laminar Solutions. 
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Figure 4.9 Turbulent Flat Plate sorte 
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Figure 4.10 Turbulent Flat Plate ( Corrected) Sol. 
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CF (TURB.PHOENICS.SOL) 
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Figure 4.11 Turbulent Solution (Phoenics). 
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COMPARISON OF TURB.SOL. 
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Figure 4. 12 Comparison of Turbulent Solutions. 
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Figure 4.13 Laminar Heat Flux Distribution.. 
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Figure 4.15 Laminar H Coeff. Distribution 
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Figure 4.16 Turbulent Stanton Number Distribution. 
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Figure 4.17 Turbulent H Coeff. Distribution.. 
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Figure 4. 18 
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V. CONCLUSION AND RECOMMENDATION 


The PHOENICS solution approach to this problem showed 
that the turbulent case is more grid resolution sensitive 
than the laminar case. The reason for this difference is the 
‘requirement for the wall function in the turbulence model. 

As explained in Chapter III the operation of the wall 
function depends on the evaluation of a particular Reynolds 
number. This Reynolds number is based on the resultant 
velocity parallel to the wall evaluated one grid spacing 
from the wall. This value is then checked to use the laminar 
or turbulent wall function. Since turbulence dies out close 
to the wall, grid dimensions in y direction should be 
selected such that, at'least three grids should remain in 
the boundary layer, but they should be far enough from the 
wall. Ж? 

The wedge geometry of the model used in this study has a 
4 degree inclined part and a flat part. Since tiere asss 
an analytical or experimental results to compare the results 
of this analysis with, the flat plate solutions have been 
used as a criterion, for both laminar and turbulent flow 


caseo 
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APPENDIX A 
SATELLITE PROGRAM OF PHOENICS USED IN LAMINAR ANALYSIS 


C$DIRECTIVEXXSATLIT 

C SATELLITE PROGRAM OF PHOENICS IN LAMINAR FLOW ANALYSIS 

С  NZ=22 NY=25 YN=10xGH 

C  XFILE NAME: MODBFCST.FIN 

C  XABSTRACT: SATELLITE MODEL MAIN PROGRAM. THIS VERSION IS 

C FOR USE WITH THE BODV-FITTED COORDINATE SCHEME (SUMMER 1984 
C VERSION) PROVIDED AS AN ATTACHMENT TO SPRING 1983 PHOENICS. 
C  xDOCUMENTATION: PHOENICS INSTRUCTION MANUAL (SPRING 1983) 

C WITH BODY-FITTED COORDINATES INSTRUCTION SUPPLEMENT 

C (SUMMER 1984). 

C  XAUXILIARY SUBROUTINES (TAPES, ETC.) ARE IN SATELLITE LIBRARY 
С SERVICEU, WHICH MUST BE INCLUDED IN LINK EDIT TO RUN. 
СХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ STANDARD SECTION 1 STARTS: 


CHAPTER 1 COMMON BLOCKS AND USER'S DATA. 


INCLUDE (CMNGUS) 
INCLUDE (CMNGRF) 
INCLUDE (GUSSEQ) 
COMMON’ CPIVIPWRIT, IDUM(243) 
DIMENSION GDTAPE(3),DFAULI(4) 
DIMENSION ARRAY!(309);ARRAY2(194), ARRAY3(421) 
LOGICAL ARRAY1,LSPDA,WRT,RD,NAMLST 
INTEGER ARRAY2,XPLANE, YPLANE, ZPLANE 
INTEGER P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS,EP,H1,H2,H3,C1,C2, 
8C3,C4 
REAL NORTH, LOW 
LOGICAL BFC 
EQUIVALENCE (ARRAY1(1),CARTES), (ARRAY2(1),NX) 
EQUIVALENCE (ARRAY3(1),SPARE1(1)),(M1,R1), (M2,R2) 
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EQUIVALENCE (LSTRUN,INTGR(12)),(NAMLST,LOGIC(88)) 

EQUIVALENCE (LOGIC(20),BFC) 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 1 ENDS. 
CSDIRECTIVEXXCMNBF1$$ 
C THIS FILE CONTAINS SATELLITE COMMON BLOCKS FOR BFC'S 
C 1 MUST BE DIMENSIONED TO GREATER THAN OR EQUAL TO 
C (NX+NY+17XNZ+24xXNXXNY+6X(NX+1)X(NY+1)+6xND). THE VALUE 
C OF THE DIMENSION MUST BE SET AS NBFC IN GROUP 6 OF SATLIT. 

COMMON’ FOB/F1 (5000) 
COMMON/ CIB/ ND/ CIC/KOORD 
COMMON/ CID/ KDBGG , KDBGMF , KDBGCD , KDBIND , KDBMFX, KDBCDT, KDBPCS, 
& KDBGUV, KDBGPV 
COMMON/CIE/KDBGS, KDBINS 
COMMON/CIF/ IGEN/CIG/NCART 

THE FOLLOWING ARRAVS MUST BE EXACTLV DIMENSIONED FOR NXPI, 
NVPI AND NZPI, BUT MAV BE OVER DIMENSIONED FOR ND. 
THE BFRAC ARRAVS MUST BE DIMENSIONED TO ALLOW FOR SETTINGS 
IN SATLIT, THEY MAY BE OVER DIMENSIONED. 
COMMON/ CRA/XW(26, 23, 1)/CRB/XE(26,23,1) 

/CRC/YS(2,23, 1)/ CRD/YN(2, 23, 1) 

/ CRE/ZL(2, 26, 1)/CRF/ZH(2,26, 1) 

/ CRG/ RCON/ CRH/ DARCY/ CRI/ BXFRAC (99) / CRJ/ BYFRAC( 99) 

/CRK/BZFRAC(99) - - 
COMMONZCLAZSTORSA(6),STORWD(6),STORP,STORPE,STORPN, 

8 STORPH, STORI , STOR2, STOR3, STOUNV, PRTBFC, STOCRN 
COMMON/CLC/BFPLOT | 
LOGICAL STORP,STORPE,STORPN,STORPH,STOR1,STOR2,STOR3, 

8 STORSA,STORWD,STOUNV,PRTBFC,BFPLOT,STOCRN 

C END 


са са са © 


Թ Թ Թ թ 


CXXXXXXAXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION | STARTS: 


C GRAFFIC ARRAYS DIMENSIONED AS NEEDED... 
COMMON/GRAF1/PHI1(1) /GRAF2/PHI2( 1) 
C POROSITY & SPECIAL DATA ARRAYS DIMENSIONED AS NEEDED... 


DIMENSION PE(1,1,12,PNC1,1, 10, PHCT, 1, 12), PCCI, 1, 1) 
DIMENSION LSPDA(1),ISPDA(1),RSPDA(1) 
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C USER PLACES HIS VARIABLES, ARRAYS, EQUIVALENCES ETC. HERE. 
EQUIVALENCE(RAIR,RE(21)), (GAMA,RE(22)), (GSWP,RE(23)) 
C USER PLACES HIS DATA STATEMENTS HERE. 
DATA NLSP,NISP,NRSP/1,1,1/ 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 1 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 2 STARTS: 


CHAPTER 2 SET CONSTANTS, AND ARRANGE FILE MANIPULATIONS. 


С PLEASE DO NOT ALTER, OR RE-SET, ANY OF THE REMAINING 
С STATEMENTS OF THIS CHAPTER. 
DATA CELL,EAST,WEST,NORTH, SOUTH, HIGH, LOW, VOLUME/ 
ներն .շ.:....».,6.,7. / 
DATA P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS,KE,EP,H1,H2,H3,C1,C2, 
ШЕЙИОЯУАЫ 2,307485,6,778,9,10,11,12,13,14,15,16,17,18,19,204 
DATA FIXFLU, FIXVAL, ONLYMS,WALL/1.E-10,1.E10,0.0,-10.0/ 
DATA IPLANE,XPLANE, YPLANE, ZPLANE/0, 1, 2, 37 
DATA WRT,RD,DFAULI/ .TRUE., .FALSE. ,6HDEFA, 6HULT. , 4HDTA/ , 1HG 
DATA GDTAPE/4HGUSI, 4HE1.D,2HTA/ 
DATA NLDATA,NIDATA,NRDATA/309, 194, 4217 
DATA NLCREG, NTCVRG/60,350/ 
DATA TITPP,TITC|,TITC2/3HRHO, 4HMACH , 4HTEMP/ 
CALL TAPES(10,GDTAPE, 3, 1, 4XNRDATA) 
c oa --.----------»- READ DEFAULT FILE IF BLOCKDATA ABSENT 
IF(INTGR1(29).NE.10) GO TO 2 
- CALL WRIT40(40HDATA ESTABLISHED IN BLOCK DATA. ) 
6@#ГО=з 
2 CALL DEFLT 
CD 2 CALL TAPES(1,DFAULT, 4,2, 4XNRDATA) 
CD — CALL DATAIO(RD,1) 
CALL WRIT40(40HDATA TAKEN FROM DEFAULT.DTA ON GROUP A/C) 
3 CALL WRIT40(40HFILE MODSTL.FIN IS THE SATLIT USED. ) 
LOGIC(89)=.TRUE. 


CHAPTER 3 DEFINE DATA FOR NRUN RUNS. 
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CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 2 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 2 STARTS: 
C--- GROUP 41MULTI-RUNS : RUN(1-30)<.T.,29%.F.> 
G 
RUN(1)=.FALSE. | 
NOTE: ALL RUNS ARE DEACTIVATED AT THIS POINT - USER SHOULD 
==== SWITCH ON ONE ONLY OF RUNS 1-4 IN NEXT STATEMENT. 
RUN(1)7.TRUE. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 2 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 3 STARTS: 
DO 10 IRUN-1,50 | f 
IF(.NOT.RUN(IRUN)) GO TO 10 
NRUN-NRUNHI 
LSTRUN=IRUN 
10 CONTINUE 
DO 999 IRUN-1,LSTRUN 
IFC(.NOT.RUNCIRUN)) GO TO 999 
INTGR(11) = IRUN 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 3 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 3 STARTS: 
C--- ALL INTEGER VARIABLES ARE DEFAULTED TO 0, AND REAL VARIABLES 
Շ TO 0.0, UNLESS OTHERWISE INDICATED. 
С E.G. BY VARIABLE<10>, OR <10.0> AS APPROPRIATE. 
Շ THE DEFAULT SETTINGS OF ALL LOGICAL VARIABLES ARE ALWAYS 
C INDICATED, E.G. VARIABLE<.T.>, OR VARIABLE<.F.>. 
C 


C--- RUNI 
С---------------5--. ë ———————— 9 —— и>” 
C-—= ¿GROUP ] ЕВИ TYPES: 

C PARAB<.F.>,CARTES<.T.>,ONEPHS<.T.> 
l-a G 
C--- GROUP 2. TRANSIENCE 

C STEADY<.T.>,ATIME,LSTEP<1>,FSTEP<1> 

C TLAST«1.E10»,TFRAC(1-300«30X1.» 
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с 0 OO СЕ С (2 сс сс 055) 


SERVICE SUBROUTINE FOR 'NT' POWER-LAW TIME STEPS: 
CALL GRDPWR(0,NT,TLAST, POWER) 

GROUP 3. X-DIRECTION : 

NX<1>,XULAST<1 .0>,XFRAC( 1-30) 

SERVICE SUBROUTINE FOR POWER-LAW GRID: 

CALL GRDPWR(1,NX,XULAST , POWER) 

GROUP 4. Y-DIRECTION : 
NY<1>,YVLAST<1.0>,YFRAC(1-30),RINNER,SNALFA 
SERVICE SUBROUTINE FOR POWER-LAW GRID: 

CALL GRDPWR(2,NY,YVLAST , POWER) 

NY=25 


GROUP 5. Z-DIRECTION : 
NZ<1>,ZWLAST<1 .0>, ZFRAC (1-30) 

SERVICE SUBROUTINE FOR POWER-LAW GRID: 
CALL GRDPWR(3,NZ, ZWLAST, POWER) 

NZ=22 


GROUP. 6. MOVING GRID OR DISTORTED (BODY-FITTED) GRID 
--- MOVING GRID :~ 
MGRID,IZW1,IZW2,AZW2,BZW2,CZW2, PINT, ZW2M1T 


~-- BODY-FITTED GRID --- 
BFC<.T.>, IGEN<1>, ND<1>,NBFC<5000>,KOORD, RCON 
BXFRAC(1-NX)<1.0,NXM1*0.0> 
BYFRAC(1-NY)<1.0,NYM1*0.0> 
BZFRAC(1-NZ)<1.0,NZM1*0.0> 

SERVICE SUBROUTINE FOR SUB-DOMAIN SPECIFICATION (FOR IGEN=1 
ONLY): 

CALL DOMAIN(ID,IXF,IXL,IYF,IYL,IZF,IZL) 
XE(T-NVPI,I-NZPI,I-NDIK(NVPIXNZPIXNDIXI.02, 
XW(1-NYP1,1-NZP1,1-ND), 
YN(1-NXP1,1-NZP1,1-ND)<(NXP1xNZP1xND)x1.0>, 
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YS(1-NXP1,1-NZP1,1-ND), 
ZH(1-NXP1,1-NYP1,1-ND)<(NXP1xNYP1xND)x1.0>, 
ZL(1-NXP1, 1-NYP1,1-ND) ,STORSA( 1-6) <6%.F.>,STORWD(1-6)<6%.F.>, 
STORP<.F.>,STORPE<.F.>,STORPN<.F.>,STORPH<.F.>,STOUNV<.F.>, 
PRTBFC<.F.>,DARCY,BFPLOT<.F.> 
CYCLIC BOUNDARY CONDITIONS ARE DEFAULTED INACTIVE ; 
TO ACTIVATE THEM AT SELECTED IZ SLABS USE SERVICE SUBROUTINE: 
CALL XCYIZ(IZ, .TRUE.) 
SERVICE SUBROUTINE TO DEACTIVATE CURVATURE TERMS IN U, V 
AND W EQUATIONS ASSOCIATED WITH CURVATURE OF IX, IV, IZ 
GRID LINES RESPECTIVELV: | 
CALL UCURVE(IZ, .FALSE.) 
CALL VCURVE(IZ, .FALSE.) 
CALL WCURVE(IZ, FALSE.) 
NCART<1> 
XWARNINGS| 1111 | 
A) WHEN USING BFCS STOVAR(H3), STOVAR(C4), STOVAR(21) ARE 
AVAILABLE ONLY FOR STORING ‘NON-ORTHOGONAL VELOCITY 
COMPONENTS. É 
B) MULTI-RUNS ARE NOT ALLOWED WITH BFC OPTION. 
C) MOVING GRID,TWO-PHASE AND PARABOLIC OPTIONS ARE NOT 
AVAILABLE WITH BFC OPTION. 
D) KE-EP TURBULENCE MODEL SHOULD BE USED WITH BFC'S ONLY 
WHEN THE MAIN FLOW IS IN THE IZ DIRECTION. 
E) BUILT-IN GRAVITY TERMS DO NOT TAKE ACCOUNT OF BFC'S. 
xNOTES 
A) THE STANDARD VELOCITY-FIELD PRINTOUT FOR THE 
VELOCITY RESOLUTES IS ACTIVATED IN THE USUAL 
WAY. AN ADDITIONAL OPTION EXISTS FOR PRINTING THE 
CARTESIAN VELOCITY-COMPONENTS WHICH MAY BE 
ACTIVATED BY SETTING THE FOLLONING LOGICALS: 
STOVAR(U2)=.T. FOR U-COMPONENT (CARTESIAN) 
STOVAR(V2)=.T. FOR V-COMPONENT (CARTESIAN) 
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STOVAR(W2)=.T. FOR W-COMPONENT (CARTESIAN) 
SIMILARLY PRINTOUT OF NON-ORTHOGONAL VELOCITY 
COMPONENTS MAY BE ACTIVATED AS FOLLOWS: 

STOVAR(C4)=.T. FOR U-COMPONENT (NON-ORTHOG) 
STOVAR(H3)=.T. FOR V-COMPONENT (NON-ORTHOG) 
STOVAR(21)=.T. FOR W-COMPONENT (NON-ORTHOG) 

B) BFC (TO ACTIVATE THE BFC OPTION), IGEN (THE CODE FOR METHOD 
OF GRID SPECIFICATION), ND (NUMBER OF SUB-DOMAINS) AND 
NBFC (THE F1 ARRAY DIMENSION), MUST BE SET BEFORE 
"STANDARD BFC SECTION 2". ====== 
ALL OTHER BFC DATA MUST BE SET AFTER "STANDARD BFC 
SECTION 2. = 

C) NXP1, NYP1, NZP1 STORE NX+1, NY+1, NZ+1; THESE ARE 
AVAILABLE TO USER AFTER STANDARD BFC SECTION 2. 

D) FOR IGEN=1 USE BXFRAC,BYFRAC & BZFRAC IN PLACE OF 
XFRAC,YFRAC & ZFRAC. 


Դ а а а су с с а а аса а а а а оса а 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD BFC SECTION 1 STARTS: 
C DEFAULT SETTINGS: | 
NCART=10 
BFC=.TRUE. 
IGEN=1 
ND=1 
NBFC=5000 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD BFC SECTION 1 ENDS.: 
C xUSER SETS BFC, IGEN, ND AND NBFC HERE: 
C 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD BFC SECTION 2 STARTS: 
CALL SB4I(NXP1,NX+1,NYP1,NY+1,NZP1,NZ+1,1,0) 
IF(BFC) CALL BFCDFT(NBFC,XE,XW,YN,YS,ZH,ZL,ND,NXP1,NYP1, 
& NZP1,NZ) | 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD BFC SECTION 2 ENDS. 
С xUSER SETS ALL OTHER BFC VARIABLES HERE: 
C XUSING NONIFORM GRID l-8 
GH=6.4E-3 
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64 


65 


66 


67 


68 


69 


62 


63 


663 


664 
61 


GL=95.2E-3 

GTL=1.24xGL 

GBETA=4. 

GBETA=GBETAX3 . 1415927/180 
GTAB=TAN(GBETA) 

DELMAX=2.E-3 

GNBL=5. 

GPWR=3. 

ро 64 ІҮ=1,5 
BYFRAC(IYOS(CFLOAT(CIYO/GNBL) XXGPWRXDELMAX/ (10 . XGH) 
DEL-(1.-DELMAX/ (10. XGH) )/ (FLOAT(NY) -GNBL) 
DO 65 IY-6,NY 
BYFRAC(IY)=BYFRAC(IY-1)+DEL 
BZFRAC(1)-42.373E-3 

DO 66 IZ=2,8 
BZFRAC(IZ)242.373E-3*BZFRAC(IZ-1) 
DO 67 IZ-9,14 
BZFRAC(IZ)284.75E-34*BZFRAC(IZ-1) 
DO 68 IZ-15,16 
BZFRAC(IZ)242.373E-3*BZFRAC(IZ-1) 
DO 69892-07022 
BZFRACCIZ)211.295E-3*BZFRAC(IZ-1) 
CALL DOMAIN(,1, NX, 1, NY, 1, NZ) 

DO 61 IX=1,NXP1 

DO 62 IY=1,NYP1 

ZL(IX,IYV,1)=0.0 

ZH(IX,IY,1)=GTL 

DO 63 IZ=1,NZP1 

YN(IX,IZ,1)=10xGH 

YS(IX,1Z,1)=0.0 

DO 663 IZ-6,20 

VS(IX,IZ, 1)-(BZFRAC(IZ-1)-BZFRAC(5) )XGTABXGTL 
DO 666 IIZE21,22 
ҮЗЕ са 20,10 

CONTINUE 
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STORSA(IFIX(LOW))=.TRUE. 
STORSA(IFIX(HIGH))=.TRUE. 
STORSA(IFIX(SOUTH))=.TRUE. 
STORWD(IFIX(SOUTH))=.TRUE. 
PRTBFC=.TRUE. 


CDAR DARCY=1.E10 


C- 


GROUP 7. BLOCKAGE: BLOCK<.F.>,IPLANE,IPWRIT 

XSET CONSTANT POROSITIES OVER SUB-DOMAINS USING: 

CALL CONPOR(IR,TYPE,VALUE,IXF,IXL,IYF,IYL,IZF,IZL), WHERE: 
IR=RUN SECTION NUMBER, E.G. 1 FOR RUN1 SECTION; 'TYPE'- EAST, 
WEST, NORTH, SOUTH, HIGH, LOW & CELL. 'VALUE'=WANTED POROSITY 
OVER REGION IXF,...IZL. | | 

XDIMENSION ARRAYS PE(NX,NY,NZ), PN(NX,NY,NZ), PH(NX,NY,NZ), & 
PC(NX,NY,NZ) ABOVE. 

XFOR FULLY-BLOCKED CELLS (IE. 'VALUE'- 0.0) USER NEED SET ONLY 
THE 'CELL' POROSITY (TO ZERO), AS CELL-FACE AREAS ARE THEN 
AUTOMATICALLY ZEROED. 

XFOR SATELLITE PRINTOUT OF ALL POROSITIES IN DOMAIN, 'IPLANE'- 
XPLANE YPLANE OR ZPLANE, FOR DESIRED CROSS-SECTION DIRECTION. 

XFOR EACH 'TYPE' A MAXIMUM OF 10 CALLS TO CONPOR IS ALLOWED, 
BUT IF REQUIREMENTS EXCEED THIS PROVISION SET BLOCK-.T. & 
IPWRIT--1, AND SET POROSITY ARRAYS EXPLICITLY HERE AS. WANTED. 
IN THIS CASE, THE USER MUST SET ALL ELEMENTS OF 
ARRAYS PE, PN, PH, PC (MANY MAY BE 0.0 OR 1.0). HE MAY USE: 
CALL CR(PARRAY, VALUE, IXF, IXL, IYF, IYL, IZF, IZL, NX, NY, NZ) 

ANY NUMBER OF TIMES, TO SET 'PARRAY' (- PE, ETC.) TO 
'VALUE' OVER RANGE IXF TO IXL, IYF TO IYL, IZF TO IZL. 

XCONPOR MUST NOT BE USED IN CONJUNCTION WITH EXPLICIT 
SETTINGS OF THE ARRAYS (INCLUDING SETTINGS VIA CR). 

GROUP 8.DEPENDENT VARIABLES TO BE SOLVED FOR OR STORED : 
SOLVAR(1-25)«25x.F.^»,STOVAR(1-25)«25X.F.», CONC1(1-4)«4X. T.» 
USE FOLLOWING NAMED INTEGERS FOR ARRAY ELEMENTS 1-20: 
P1,PP,U1,U2,V1,V2,W1,W2,M1,M2,RS,KE,EP,H1,H2,H3,C1,C2,C3,C4. 
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CT 
CT 


SOLVAR(P1)=.TRUE. 
SOLVAR(PP)=.TRUE. 
SOLVAR(V1)=.TRUE. 
SOLVAR(W1)=.TRUE. 
SOLVAR(H1)=.TRUE. 
SOLVAR(KE)=.TRUE. 
SOLVAR(EP )=.TRUE. 
STOVAR(V2)=.TRUE. 
STOVAR(W2)=.TRUE. 
STOVAR(C1)=.TRUE. 
STOVAR(C2)=.TRUE. 


GROUP 9. VARIABLE LABELS 
TITLE(1-25)«2HP1, 2HPP, 2HU1 , 2HU2, 2HV1, 2HV2, 2HW1, 2HW2, 2HR1, 
2HR2, 2HRS , 2HKE , 2HEP, 2HH1, 2HH2 , 2HH3 , 2HC1, 2HC2, 

2HC3, 2HC4 , 2HRX, 2HRY , 2HRZ, | 
TITLE(C1)s4HMACH 
TITLE(C2)s'TEMP' 
TITLE(PP)='RHO1' 


2х4Нжжжж> 


առ առ ск) еко «то ако ано ОС а Q G <s s u чыз шт ат л G е G ек; а ее ска ак: 


GROUP 10 PROPERTIES: 

IRHO1<1>, IRHO2<1>,RHO1<1.0>,RHO2<1.0>, 
ARHO1<1.0>,BRHO1<1.0>,CRHO1<1.0> 
IEMU1<1>,EMU1<1 .0>,EMULAM<1.E-10> 
ІН5АТ,Н15АТ,Н25АТ,Р5АТЕХ<1.0> 
5ІСМА( 1-25) <1.0,2.0,1.,1.Е10,1 
4%1.0,1.314,1.0,1.E10,10%1.0> 
ІКН01-4. 

РТОТ-55.Е5 

TOT-555.55 

RAIR-287. 

GAMA=1.35 

CP=RAIR/ (1-1/GAMA) 

TW-323. 

HWALL-TWXCP 


.,1.Е10,1.,1.Е10, 
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HTOT-CPXTOT 
RHTOT=PTOT/TOT/RAIR 
LOGIC(87)=.TRUE. 
ARHO1-RHTOT/PTOTXX( 1/GAMA) 
BRHO1=1./GAMA 

C TURBULENT FLOW 
IEMU1=-1 
EMU1=1.E-5 
EMULAM=EMU1 
SIGMA(24)=0.7 
SIGMA(14)=0.7 


КИШИН... ae eR 2 ж ж- жə н, 
C--- GROUP 11 INTER-PHASE TRANSFER PROCESSES : 
С ICFIP,CFIPS,IMDOT,CMDOT,CA1I<1.E6>,CA2I<1.E6> 
C — — «по «по «по «кә «кә «ке «шә еке еше еле еле кә еке «но «кек. < a. е ||| «нә o ене U աթ «թ «ո «աթ 
C--- GROUP 12 SPECIAL SOURCES 
C ISPCSO(1-25),AGRAVX,AGRAVY,AGRAVZ,ABUOY,HREF 
DEMNM. “С ж-е ж 
C--- GROUP 13 INITIAL FIELDS : 
C FIINIT(1-25)«25x1.E-10» 
C MACH NO. OF FREE STREAM 
GMACH=3.2 
A-1* (GAMA- 1)/2XGMACHXX2 
TE-TOT/A 


RHEERHTOT/AXXx(1/(GAMA-1)) 
PSTAT-PTOT/AXx(GAMA/ (GAMA-1)) 
RHO1=ARHO1*PSTAT*®XBRHO1 
SONIC-SQRT(GAMAXRAIRXTE) 
WIN-SONICXGMACH 
RKEIN-0.01XWINXx2 
EPIN-0.16xRKEINXx1.5/GH 
FIINIT(W1)ZzWIN 
FIINIT(P1)zPSTAT 
FIINIT(CH1)=HTOT 
FIINIT(KE)=RKEIN 
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CDAR 


xN.B. ALL 10 REGIONS ARE DEFAULTED .TRUE.. 


FIINIT(EP)=EPIN 


GROUP 14 BOUNDARY/INTERNAL CONDITIONS 

ILOOP1,ILOOPN, XCYCLE<.F.>,PBAR,REGION(C1-10)<10%.T.> 

THE USER SHOULD 
SET REGION(I)=.FALSE. FOR UNUSED REGIONS 'I'. 
ро 14 1=1,10 


REGION(I)=.FALSE. 


GROUP 15 TO 24; REGIONS 1 TO 10 

ONLY THOSE REGIONS ARE ACTIVE WHICH ARE SPECIFIED BY THE 
USER, PREFERABLY BY WAY OF:- 

CALL PLACECIREGN, TYPE, IXF,IXL,IYF,IYL,IZF,IZL) 8 
CALL COVAL(CIREGN, VARBLE, COEFF, VALUE) 

CALL PLACE(1,LOW,1,NX,1,NY,1,1) 

CALL COVAL(1,M1,FIXFLU,WINXRHE) 

CALL COVAL(1,M1,1.E-20, 1. E*20XWINXRHE) 
GCM-2XGAMA/WIN/(CGAMA-1) 

GVMEPTOTXRHE/RHTOT 

CALL COVAL(1,M1,GCM, GVM) 

CALL COVAL(1,W1,ONLYMS,WIN) 

CALL COVAL(1,H1,0NLYMS,HTOT) 

CALL COVAL(1,KE,ONLYMS, RKEIN) 

CALL COVAL(1,EP,ONLYMS,EPIN) 

CALL PLACE(2,HIGH,1,NX,1,NY,NZ,NZ) 

CALL COVAL(2,M1,FIXVAL,PSTATXO0.) 

CALL COVAL(2,M1,1000xWINXRHE/PSTAT, PSTAT) 


WALL ALONG THE VANE 1Z(6;22) 


GCM=EMU1/(.5*BYFRAC (1) 10. GH) 
DY1-BYFRAC(1)2x10.xGH 
GOEFF=EMU1/(0.5x*DY1) 
GOEFH-EMUI/(0.5XDY1xSIGMA(24)) 
CALL PLACE(3,SOUTH,1,NX,1,1,6,22) 
CALL COVAL(3,W1,GOEFF,0.) 

CALL COVAL(3,H1,GOEFH,HWALL) 
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C CALL COVAL(3,KE,WALL,0.) 
CALL COVAL(3,EP,WALL,0.) 


Ġ — — «ոթ «ոթ առ» առթ «ոթ «ո «ոթ «աթ «աթ ատ առթ «աթ «աթ «ոթ «աթ «աթ «ա ||| «ке --............. | ||| еә еә еә ә ә ә ә о սթ սա սա աթ «ա աա աա աա աա ա 
C--- GROUP 25 GROUND STATION : 
C GROSTA<.F.>,NAMLST<.F.> 


C XNAMLST ACTIVATES NAMELIST IN GROUND. 
GROSTA=.TRUE. 


С(------------------- <= -..---..........-------- 
Շ--- GROUP 26 SOLUTION TYPE AND RELATED PARAMETERS 
С WHOLEP<.F.>,SUBPST<.F.>,DONACC<.F.> 
WHOLEP=.TRUE. 
РЕКЕ а ene 
С--- GROUP 27 SWEEP AND ITERATION NUMBERS 
С FSWEEP<1>,LSWEEP<1>,LITHYD<1>,LITC<1>,LITKE<1>,LITH<1>, 
С LITER(1-25)<9x1,-1,15x1> 
C IVELF<1>,NVEL<1>, IVELL<10000>, 
С IKEF<1>,NKE<1>,IKEL<10000>, 
С IENTF<1>,NENT<1>,IENTL<10000>, 
С ICNCF<1>,NCNC<1>,ICNCL<10000>, 
С IRHO1F<1>,NRHO1<1>,IRHO1L<10000>, 
С IRH02F<1>,NRH02<1>,IRH02L<10000> 
LSWEEP=100 
GSWP=LSWEEP 


CR FSWEEP=200 
LITER(PP)=20 


LITER(V1)=2 
LITER(W1)=5 
C LITHYD-2 
Бей лено ЕЕ и ао... 
C--- GROUP 28 TERMINATION CRITERIA : 
С ENDIT(1-25)<9%1.E-10,0.5,15%1.E-10> 
ENDIT(1)=1.E-5 
Fema a i T ao 
C--- GROUP 29 RELAXATION 
C RLXP<1.>,RLXPXY<1.>,RLXPZ<1.>,RLXRHO<1.>,RLXMDT<1.>, 
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DTFALS (3-25 )<23%1.E10> 
DTFALS(W1)21.EL-5 
DTFALS(V1)=1.E-4 
RLXP=.2 


GROUP 30 LIMITS : 

VELMAX«1.E10»,VELMIN«-1.E10»,RHOMAX«X1.E10»,RHOMIN«X1.E-10^», 
TKEMAX<1.E10>,TKEMIN<1.E-10>, EMUMAX<1 .E10>,EMUMIN<1.E-10>, 
EPSMAX<1.E10>,EPSMIN<1.E-10>,AMDTMX<1.E10>,AMDIMN<-1 .E10> 


GROUP 31 SLOWING DEVICES : SLORHO<1.>,SLOEMU<1.> 
SLORHO=.5 


GROUP 32 PRINT-OUT OF VARIABLES 
PRINT(1-25)<.T.,.F.,235%.T.>,SUBWGR<.F.> 
PRINT(C1)=.TRUE. 

PRINT (C2)=.TRUE. 

PRINTCPP)=.TRUE. 


GROUP 33 MONITOR PRINT-OUT : 

IXMON<1>, IYMON<1>, IZMON<1>,NPRMON<1>,NPRMNT<1> 
NPRMON=5 | 

IYMON=2 

IZMON=5 


GROUP 34 FIELD PRINT-OUT CONTROL : 
NPRINT<100>,NTPRIN<100>,NXPRIN<1>,NYPRIN<1>,NZPRIN<1>, 
IZPRF<1>,ISTPRF<1>,IZPRL<10000>, ISTPRL<10000> 
NUMCLS<10>,KOUTPT 

NPRINT=LSWEEP 

NUMCLS=5 


GROUP 35 TABLE CONTROL : 
TABLES<.F.>,NTABLE,NTABVR, LINTAB,NPRTAB,NMON, 
ITAB( 1-8) ,MTABVR( 1-8) 
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GROUP 36-38 ARE NOT DOCUMENTED IN THE INSTRUCTION 
MANUAL AND ARE INTENDED FOR MAINTENANCE PURPOSES ONLY 
GROUP 36 DEBUG PRINT-OUT SLAB AND TIME-STEP : 
IZPR1<1>, IZPR2<1>, ISTPR1<1>, ISTPR2<1> 


XL պատ աա ախ ատ Sa 222 S22 = = ста GR «ասն» ано a ee eS Se «արջ «5 mm ss «шə «нш» «ні» өн» «нш» «нш» өн» «нш» «нш» «нш» "мо св ан ак оо ао чо ао ае 


GROUP 37 DEBUG SWEEP AND SUBROUTINES 
KEMU,KMAIN,KINDEX,KGEOM,KINPUT,KSODAT,KCOMPF,KSORCE, 
KSOLV1,KSOLV2,KSOLV3,KCOMPP,KADJST,KFLUX,KSHIFT,KDIF, 
KCOMPU , KCOMPV, KCOMPW, KCOMPR, KWALL, KDBRHO<-1>,KDBEXP , KDBMDT 
KDBGEN 


GROUP 38 MONITOR,TEST,AND FLAG 
MONITR<.F.>,FLAG<.F.>,TEST<.T.>,KFLAG<1> 
END OF MAINTENANCE-ONLY SECTION 


GROUP 39 ERROR AND RESIDUAL PRINT-OUT : 
IERRP<1000>,RESREF(1,3-24)<25%1.>,RESMAP<.F.>, 
RESID(1-25)«2x.F.,23Xx.T.»,KOUTPT 
RESREF ( 1) -WINXRHE 

RESREF(7) -WINXRESREF(1) 

RESREF (5) -HINXRESREF( 1) X0 . 1 
RESREF(H1)-HTOTXRESREF(1) 

RESREF(KE) -RKEINXRESREF(1) 
RESREF (EP) -EPINXRESREF(1) 

IERRP-LSWEEP/10 

KOUTPT-LSWEEP/10 


GROUP 40 SPECIAL DATA : LOGIC(1..10),INTGR(1..10),RE(21..30), 
NLSP<1>,NISP<1>,NRSP<1>,SPDATA<.F.>,LSPDA(1),ISPDA(1),RSPDA(1) 
USE FIRST 10 ELEMENTS OF ARRAYS LOGIC & INTGR AND 21ST 

TO 30TH OF ARRAY RE FOR TRANSFERRING SPECIAL DATA FROM 
SATELLITE TO GROUND, BUT IF REQUIREMENTS EXCEED THIS 

PROVISION SET SPDATA = .T., AND DIMENSION ARRAYS LSPDA, 

ISPDA, RSPDA ABOVE AND IN GROUND AS NEEDED, AND SET HERE 
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C--- GROUP 42 RESTARTS AND DUMPS : SAVEM<.F.>,RESTRT<.F.>,KINPUT 
SAVEM=. TRUE. | 
BFPLOT=.TRUE. 
C RESTRT=. TRUE. 
e= 2222... a ШИШИШИ es 
s snn И те Е ОНИЕ nn 
C--- GROUP 43 GRAFFIC 
С GRAPHS<.F.>,O0RTHOG<.T.>,ANTSYM,NPRT<1>,ITITL<5X4HXxxx> 
C--- FOR A GRAFFIC RUN, DIMENSION PHI1 & PHI2 AS FOLLOWS: 


C PHIT(NXXNVXNZXNM) 

C PHI2((NX*20X(NYT20X(NZ*20X(NM*IBLK)) , WHERE 
C NM=NO. OF VARIABLES STORED + DENSITY(-IES) 

C IBLK=0 IF BLOCK=.FALSE.,=4 IF A 3D RUN, 

C =3 IF A 2D.YZ RUN. 


IFCIRUN.EQ.1) GO TO 900 
900 CONTINUE 
C--- ALL RUNS 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 3 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 4 STARTS: 


C WRITE GENERAL DATA ON TO THE GUSIE!.DTA TAPE, ETC... 
IF(SPDATA) CALL WRTSPC(LSPDA,NLSP, ISPDA, NISP,RSPDA, NRSP) 
IF(BLOCK) CALL WRTPOR(PE, PN, PH, PC,NX,NY,NZ, IPLANE) 
IF(BFC) CALL WRTBFC(14,NBFC,XE,XW, YN, YS, ZH, ZL, 
&ND,NX*1,NY*1,NZ*1, NZ, PRTBFC) 


C OLD PRACTICES RETAINED FOR REFERENCE: 
C IF(SPDATA) CALL SPCDAT(IRUN) 
C IF(BLOCK) CALL PORDAT(IRUN) 


TFCGRAPHS) CALL SORTCIRUN) 
IF(RESTRT) GO TO 902 
DO 901 INDVAR=1,25 
IF(IFIX(FIINIT(INDVAR)40.1).NE.10101) GO TO 901 
CALL FLDDAT(IRUN) 
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901 
902 


999 


GO TO 902 
CONTINUE 
CALL DATAIO(WRT,10) 
IF(MONITR) CALL DATAIO(WRT,-6) 
CONTINUE 
STOP 
END 
IGEN=1 SO BFCXYZ NOT REQUIRED. 
COMMENT OUT BOTH VERSIONS. 


- 
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SUBROUTINE BFCXYZ (NXP1,NYP1,NZP1) 
RETURN 
END. 
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APPENDIX B 
GROUND PROGRAM OF PHOENICS FOR LAMINAR FLOW ANALYSIS 


CSDIRECTIVEXXMAIN 
GROUND PROGRAM OF PHOENICS USED IN LAMINAR FLOW ANALYSIS 
NZ=22 NY225:LAMINAR FLOW 
XFILE NAME: MODBFCGD.FTN 
XINCLUDE DED SUBROUTINES: THE MODELS OF MAIN, GROUND & STRIDE. 
XDOCUMENTATION: PHOENICS INSTRUCTION MANUAL (SPRING 1983) 
WITH BODY-FITTED COORDINATES INSTRUCTION SUPPLEMENT 
(SUMMER 1984). 
*SATELLITE FILE NAME: MODSTL.FIN 


а а ՕԳ а с с с CQ 


COMMONZISHIFTZ/ZIII(57),NFMAX 
C SET F-ARRAY DIMENSION AS NEEDED, & SET NFMAX ACCORDINGLY. 
C FOR BFC'S ALSO SET F1-ARRAY DIMENSION AS NEEDED ,AND SET 
C NF1MAX ACCORDINGLY. 
COMMON/FOB/F1( 10000) 
COMMON/NFOB/NF 1MAX 
COMMON F(25000) 
NFMAX=25000 
NF1MAX-10000 
CALL MAIN! 
STOP 
END 
CSDIRECTIVEXXGROUND 
SUBROUTINE GROUND(IRN,ICHAP, ISTP, ISWP, IZED, INDVAR) 
INCLUDE (CMNGUS) 
INCLUDE (GUSSEQ) 
C INCLUDE NMLIST 
LOGICAL BFC 
EQUIVALENCE (LOGIC(20),BFC) 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 1 STARTS: 
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= C+++++MEANING OF SUBROUTINE ARGUMENTS : 

б IRN=RUN NUMBER; ICHAP=CHAPTER CALLED; ISTP=TIME STEP; 

C -ISWP-SOLUTION SWEEP; IZED=Z-SLAB; INDVAR: SEE CHAPTERS BELOW. 
C+++++USER-INTRODUCED VARIABLES & ARRAYS: 

TO AVOID CONFLICT WITH VARIABLE NAMES USED IN COMMON, ALL 
VARIABLES INTRODUCED BY THE USER SHOULD HAVE NAMES STARTING 
WITH 'G' IF REAL, 'J' IF INTEGER, AND 'G' OR 'J' IF LOGICAL. 
THUS GDZ(IZ) MIGHT BE A Z-INTERVAL ARRAY; 

GW1(IY,IX) A 2-D ARRAY FOR AXIAL VELOCITY; ETC. 
USER-GENERATED SUBROUTINES SHOULD BE NAMED CORRESPONDINGLY, EG 
SUBROUTINE GVISC(GTEMP,GCNC,GVSC), FOR COMPUTING VISCOSITY 
FROM CONCENTRATION & TEMPERATURE. 

C+++++GROUND-TO-EARTH CONNECTING SUBROUTINES: 

@ XUSE GET(NAME,GARRAY,NY,NX) TO PUT VALUES ОЕ VARIABLE NAMED 

С 'NAME' INTO ARRAY 'GARRAY' DIMENSIONED GARRAY(NY,NX). 

С xUSE SET(NAME,IXF,IXL,IYF,IYL,GARRAY,NY,NX) TO SET VARIABLE 

C 'NAME' TO GARRAY(IY,IX) OVER THE REGION: IXF-IXL & IYF-IYL. 

C XUSE PRNSLB(NAME) TO PRINT VARIABLE 'NAME' OVER X-Y PLANE. 

C XUSE ADD(NAME,IXF,IXL,IYF,IYL,TYPE,CM,VM,CVAR, VVAR, NY, NX) 

С TO ADD SOURCE TO VARIABLE NAMED 'NAME' (SEE CHAPTER 5). 
С 
С 
C 
C 
С 
б 
b 
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XUSE READIZ(IZED) IN CHAPTERS 1, 2, 8, & 9 TO ACCESS P1,...DM 
& VOL,...AHDZ. (SEE FOOTNOTE TO LEGALITY TABLE) 

XUSE GETID(NAME,GARRAV,NDIM) TO PUT VARIABLE NAMED 'NAME' IN 
ONE-D ARRAY 'GARRAY' DIMENSIONED NDIM, THUS: | 
CALL GETID(NAME,GNX,NX) FOR XG,...DXG & DIMENSION GNX(NX); 
CALL GETID(NAME,GNY,NY) FOR YG,...RV & DIMENSION GNYC(NY); 
CALL GETID(NAME,GNZ,NZ) FOR ZG,...WGRID & DIMENSION GNZ(N2). 

C+++++LEGALITY TABLE FOR USE OF EARTH-CONNECTING SUBROUTINES: 


C ENTRIES IN TABLE GIVE CHAPTERS IN WHICH SUBROUTINES CAN BE 
C USED FOR VARIABLES IN LEFT-HAND COLUMN. (SUBROUTINE 

C STRIDE IS REGARDED AS BEING IN CHAPTER 3) 

(eee eee m 
C : VARIABLE:: GET & : SET : ADD : READIZ : GETID : 
C PRNSLB 

C 


73 


C sPI = RZ Թ: ALL 1 687: 5 : 1,2,8,9: NONE : 
С :PIO - RZH::3-7, 10-16: 5 ։ NONE ։ NONE : NONE 
C :VOL -AHDZ: : | ALL : 3 : NONE : 1,2,8,9: NONE 

С :D1DP :: NONE ։ 10 : NONE ։ NONE : NONE 
C :D2DP DR NONE ։ 11 : NONE: NONE: NONE 
C :MU1,MUIH :: 5,13-16 : 12 : NONE : NONE : NONE 
C :EXCO(L, H): : NONE ։ 13 : NONE : NONE : NONE 
C : СЕР :: 5 : 14 : NONE : NONE: NONE 
Շ :MDT 2: 5 : 15 : NONE : NONE : NONE : 
C :HST1,HST2:: 5 & 15 : 16 : NONE ։ NONE : NONE : 
Շ :XG -WGRID:: NONE : МОМЕ : NONE : NONE : ALL 
en ш-ш-ш ШОО ЫЫ тте 
С NOTES ON ABOVE TABLE: 

Շ xIN CHAPTERS 1, 2, 8, & 9 VARIABLES P1...DM & GEOMETRY 

Շ VOL...AHDZ CAN BE ACCESSED BUT ONLY IN CONJUNCTION WITH 

C USE OF READIZ, THUS: 

C DO 1 IZED=1,NZ 

C CALL READIZ(IZED) 

C 1 CALL GET(... AS REQUIRED..) 

Շ xGEOMETRY ACCESSED BV READIZ IS THAT AT INITIAL TIME. 

Շ xD1DP & D2DP ONLY ACCESSIBLE IN UNSTEADY FLOWS. 


C+++++GROUND SERVICE SUBROUTINES: 

xUSE CONTUR(NAME,IPLANE,ILOC,NINT,I1,I2,J1,J2,GARRAY,NDIM) FOR 
LINE-PRINTER PLOTS 0F CONTOURS. TNAME' 2 U1,...C4; 

'IPLANE's XPLANE, YPLANE, OR ZPLANE; ILOC SETS IX, IY, ОВ 

IZ LOCATION OF IPLANE; I1, I2, J1, & J2 SET FIRST & LAST 
CELLS IN HORIZ. & VERT. ON PLOT; GARRAY IS 1-D WORKING ARRAY 
OF DIMENSION NXXNY, NXXNZ, OR NYXNZ DICTATED BY IPLANE; & 
NDIM SETS VALUE OF DIMENSION OF GARRAY. 

XUSE FLD2DA(TITLE,GARRAY,NY,NX) TO PRINT ANY ARRAY DIMENSIONED 
GARRAV(NV,NX); SET 'TITLE' TO REQUIRED NAME ( 4 HOLLERITH 
CHARACTERS ONLY). | 

XUSE FLD3DA(TITLE,GARRAY,NX,NY,NZ,IPLANE,ILOC) TO PRINT ANY 
ARRAY DIMENSIONED GARRAY(NX,NY,NZ) IN PLANE SPECIFIED BY 
'IPLANE' & 'ILOC' AS FOR CONTUR ABOVE; SET 'TITLE' AS FOR 


Q со G G O G G ао ՕՍ осо ас с 
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FLD2DA. 

VARIABLE NAMES FOR USE IN GROUND: 

COMMONZTYPEZCELL,EAST,WEST,NORTH,SOUTH,HIGH,LOW,VOLUME,WALL 

COMMON/VAR/P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS, 
4.12,EP,H1,H2,H3,C1,C2,C3,C4,RX,RV,RZ,S1,S2 

COMMON/ VAROLD/P10,PPO,U10,U20,V10,V20,W10,W20,R10,R20,RSO, 
&KEO, EPO, H10, H20, H30, C10, C20, C30, C40, RXO, RYO, RZO, S10, S20 

COMMON/VARLOW/P1L, PPL, U1L,U2L,V1L,V2L,W1L,W2L,R1L,R2L,RSL, 
&KEL,EPL,H1L,H2L,H3L,C1L,C2L,C3L,C4L,RXL, RYL, RZL,S1L,S2L 

COMMON/VARHI/P1H, PPH,U1H,U2H,V1H,V2H,W1H,W2H,R1H,R2H,RSH, 
&KEH , EPH, H1H, H2H, H3H, C1H, C2H, C3H, CAH, RXH, RYH, RZH, S1H, S2H 

COMMON/GMTRY/VOL, VOLO, AEAST, ANORTH, AHIGH, AEDX, ANDY, AHDZ 

COMMON’ PROP/D1,D2,D1DP, D2DP,MU1,MU1LAM,EXCO,CFP,MDT,HST1,HST2 

COMMON’ PRPOLD/D10,D20 

COMMON’ PRPLOW/D1L, D2L, EXCOL 

COMMON’ PRPHI/D1H,D2H,MU1H,EXCOH 

COMMON/VARNX/ XG , XU, DXU, DXG 

COMMON/ VARNV/XG, XV, DYV, DYG, R, RV 
. COMMON/VARNZ/ ZG, ZW1 , DZW, DZG, WGRID 

COMMON/ GDMSCI/XPLANE, VPLANE, ZPLANE, ITNO 

COMMON/ GDMSCL/LSLAB, MSLAB , HSLAB, LAMMU 

REAL NORTH, LOW 

INTEGER P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS, 
&EP,H1,H2, H3, C1, C2, C3, CA, RX, RY, RZ, S1,S2 

INTEGER P10,PP0,U10, U20,V10, V20,W10, W20, R10, R20, RSO, 
&EPO,H10,H20,H30,C10,C20, C30, C40, RXO, RYO, RZ0, $10, S20 

INTEGER P1L,PPL,U1L,U2L,V1L,V2L,W1L,W2L,R1L,R2L,RSL, 
&QEPL,HIL,H2L,H3L,C1L,C2L,C3L,C4L,RXL,RYL,RZL,S1L,S2L 

INTEGER P1H, PPH,U1H,U2H,V1H,V2H,W1H,W2H,R1H,R2H,RSH, 
&EPH,H1H,H2H,H3H,C1H,C2H,C3H,C4H,RXH,RYH,RZH,S1H,S2H 

INTEGER VOL, VOLO, AEAST, ANORTH , AHIGH, AEDX, ANDY , AHDZ 

INTEGER D1,D1DP,D2,D2DP, EXCO, CFP, HST1,HST2 

INTEGER D10,D20,D1L,D2L,EXCOL,D1H,D2H, EXCOH 

INTEGER XG, XU, DXU, DXG, YG, YV, DYV, DYG, R, RV, ZG, ZW1, DZW, 
&DZG,WGRID 
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INTEGER XPLANE , YPLANE , ZPLANE 
LOGICAL LSLAB,MSLAB,HSLAB, LAMMU, LSPDA 
EQUIVALENCE (M1,R1),(M2,R2) 

C SATLIT-EQUIVALENT IRUN: 

EQUIVALENCE (IRUN,INTGR(11)) 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 1 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 1 STARTS: 
C ARRAYS ( DIMENSIONED NX,NX ) FOR USE WITH 'ADD': 

DIMENSION CVAR(1,1),VVAR(1,1),0M(1,1),VM(1,1),ZERO(1,1) 

DIMENSION GP(30,1),GH(30,1),GD(30,1),GV(30,1),GW(30,1) 

1 ,GMACH(30,1),GTEMP(30,1),GVISC(30,1) 


C SPECIAL-DATA ARRAYS DIMENSIONED & DIMENSION VALUES SET HERE: 
DIMENSION LSPDA(1),ISPDA(1),RSPDA(1) 
C USER PLACES HIS VARIABLES, ARRAYS, EQUIVALENCES ETC. HERE. 


EQUIVALENCE (RAIR, RE(21)), (GAMA, RE(22)), (GSWP,RE(C23) ) 

DATA NLSP,NISP,NRSP/1,1,17 

DATA CVAR, VVAR,CM, VM, ZERO/5x0 .0/ 
C USER PLACES HIS DATA STATEMENTS HERE. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 1 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 2 STARTS: 


C PLEASE DO NOT ALTER, OR RE-SET, ANY OF THE REMAINING 
C STATEMENTS OF THIS SECTION. 
DATA NUMCH4 / 0 / 
IF(SPDATA) 


&CALL RDSPCCIRN, INTGR(12),LSPDA,NLSP,ISPDA,NISP,RSPDA,NRSP) 
CALL GRDUTYCIRN, ICHAP, IZED, INDVAR) 
IF(BFC) CALL BFCGRD(CIRN, ICHAP, ISWP, IZED, INDVAR) 
IFCICHAP.EQ.-5) GO TO 10 
IFCICHAP.LE.0.OR.ICHAP.GT.16) RETURN 
GO TO (100,200,300,4999,500,600,700,800,900,1000,1100,1200, 
&1300,1400,1500,1600),ICHAP 
RETURN 
4999 NUMCH4= NUMCH4 + 1 
IF (MOD(NUMCH4,2).EQ.1) GO TO 400 
RETURN 
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CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 2 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 2 STARTS: 


C CHAPTER 0: MODIFY SATLIT DATA, AT START OF EACH IRN. 
L-A eee 
10 CONTINUE 
C IF(.NOT.NAMLST) RETURN 
C IFCIRN.EQ.NRUN) DATFIL=.FALSE. 
C--- READ SATLIT DATA NAMELIST HERE 
C CALL WRIT40(40HENTER NAMELIST DATA FOR GROUPS 1 TO 24 ) 
C КЕАр(20,61624) 
С CALL WRIT40(40HENTER NAMELIST DATA FOR GROUPS 25 TO 42 ) 
C READ(20,625642) 
RETURN 
f eee L L-I L 


C CHAPTER 1: CALLED AT THE START OF EACH TIME STEP. 

C SET трт' HERE WHEN TLAST SET NEGATIVE IN BLOCK DATA. 

C "ATIME + DT' GIVES THE END TIME OF THE CURRENT TIME STEP. 
C NOT ACCESSED IF STEADY,OR PARABOLIC. 


ee ЗЕ 255 ew ee we ooo m ра 
100 CONTINUE 
RETURN 
ne See eS ee SS KS Se a aS WR RR Re een 
C CHAPTER 2: CALLED AT THE START OF EACH SWEEP. 
um Е I 5 Бона Е Е 1222.22 
200 CONTINUE 
RETURN 
S Նա 55775. . J... l. L... ... ж аман а ао 
CHAPTER 3: CALLED AT THE START OF EACH SLAB; 
C NOT ACCESSED IF PARABOLIC, BUT 'STRIDE' IS. 
(ee cac c a a eo eo eee oe ee eee ee 
300 CONTINUE 
RETURN 
ee ae a a oe ee eee ee ................... 
C CHAPTER 4: CALLED AT THE START OF EACH RE-CALCULATION OF 
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500 


600 


VARIABLES P1,...C4 AT CURRENT SLAB. ITNO= ITERATION NUMBER. 


CONTINUE 
RETURN 


CHAPTER 5: GROUND CALLED WHEN SOURCE TERM IS COMPUTED. 
INDVAR GIVES DEPENDENT VARIABLE IN QUESTION IE. U1,...C4. 
TO ADD SOURCE TO DEPENDENT VARIABLE C1(SAY) FOR IX=IXF,IXL 
AND IY=IYF,IYL INSERT STATEMENT: 

IF(INDVAR.EQ.C1) | 

&CALL ADD(INDVAR,IXF,IXL,IYF,IYL,TYPE,CM,VM,CVAR, VVAR, NY , NX) 
NOTES ON 'ADD': 

XSOURCEs (CVAR(IY, IX) *AMAXI(0.0, MASFLO) )XCVVARCIY, IX) -PHID ,. 
WHERE 'PHI' IS IN-CELL VALUE OF VARIABLE IN QUESTION. 

X'MASFLO's CM(IY,IXOX(VM(CY,IX)-P), 

WHERE 'P' IS THE IN-CELL PRESSURE. 

XFOR INDVAR- M1, OR -M2, SOURCE ADDED IS 'MASFLO' ONLY, 
EXCEPT FOR ONEPHS=.F. & MASFLO < 0.0 (IE. OUTFLOW) WHEN 
CM(IY,IX) IS MULTIPLIED BY R1XD1 (FOR M1) & R2xD2 (FOR M2). 

XBOTH 'CVAR' & 'CM' ARE MUTLIPLIED BY CELL-GEOMETRY QUANTITY 
DICTATED BY SETTING OF 'TYPE' (=CELL, EAST AREA,..VOLUME). 

XTYPE-SPECIFIED AREAS ARE CALCULATED AS IF BLOCKAGE ABSENT, 
BUT "VOLUME' WITH ACCOUNT FOR ITS PRESENCE. 

xFOR ALL SOLVED VARIABLES, INCLUDE DING MI ( & M2 WHEN ONEPHS-F), 
IF 'CM'» 0.0 CALL 'ADD'; FOR M1 & M2 ALTHOUGH 'CVAR' & 'VVAR' 
HAVE NO SIGNIFICANCE THEY MUST BE ENTERED AS ARGUMENTS. 

X'CVAR', 'VVAR', 'CM' & 'VM' MUST BE DIMENSIONED NY,NX. 
CONTINUE 
RETURN 
CHAPTER 6: CALLED AT THE END OF EACH VARIABLE-RECALCULATION 
CYCLE COMMENCED AT CHAPTER 4. ITNO = ITERATION NUMBER. 
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CONTINUE 
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C о «ко «աթ «աթ աթ աթ «ոթ «թ աթ «ոթ «ոթ «ոթ «ոթ «к «ке «кә «ке «кә «к» «кә «к» «к» «ке «ме «кә «ше «ше «кә «кә «ке «к» «ше «ке «к» «кә «ке «ше «к» «шә «ке еке «ке «кө «ше «шә «шә «ше «шә «шә си» еш» «шә «шә еш» «шә «ше «шә «шә «шә «ше «шә еше «ше «шә әке «шә 

C CHAPTER 7: CALLED AT END OF EACH SLAB-WISE CALCULATION. 

C -- = «ке «кә «ке «ке «кә «к» «кә «кә «кә со мо си «но со со < «шә «шә «шә «ше «шә «шә еке еке «шә «ж» «ж» «шә еке «қз «ше «ше «ке еке «шә еке еке еке еке «шә еке «шә «шә «шә «шә «առ «шә еш զառ. զառ «шә «шә «ше «առ «առ «առ «առ «ոռ «առ 
700 CONTINUE 


IF(FLOAT(ISWP).LT.GSWP) RETURN 
CALL GET(P1,GP,NY,NX) 
CALL GET(H1,GH,NY,NX) 
CALL GET(D1,GD,NY,NX) 
CALL GET(V1,GV,NY,NX) 
CALL GET(W1,GW,NY,NX) 
GCP=RAIR/ (1.-1/GAMA) 
DO 701 I=1,NY 
GSON=SQRT(GAMAXGP(I,1)/GD(I,1)) 
GAVESQRT(GV(I, 1)XX24GW(I,1)XX2) 
GMACH(I, 1)-GAV/GSON 

C 701 GTEMP(I,1)=GP(I,1)/GD(I,1)/RAIR 

701 GTEMP(I,1)2(GH(I,1)-GW(I,1)XX2/2.-GV(I,1)XX2/2.)/GCP 

CALL SET(C1,1,NX,1,NY,GMACH,NY,NX) | 
CALL SET(C2,1,NX,1,NY,GTEMP,NY,NX) 


RETURN 
a ee so a ns ee eo ee 
CHAPTER 8: CALLED AT THE END OF EACH SWEEP; 
C NOT ACCESSED IF PARABOLIC. 
IMMA ee amm 
800 CONTINUE 
RETURN 
КОО ММ a a ore oo oe eee oo no a ae oa we 
C CHAPTER 9: CALLED AT THE END OF EACH TIME STEP; 
C NOT ACCESSED IF PARABOLIC. 
КБК eec eue e e ре Се ар тото 
900 CONTINUE 
RETURN 
7 — — 7772572777 ee eee ee eee ee 
C CHAPTER 10: SET PHASE 1 DENSITY HERE WHEN IRHO1=-1 IN DATA. 
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SET CURRENT-Z 'SLAB' DENSITY, D1, IF MSLAB=.T., 
EG. IF(MSLAB) CALL SET(D1,1,NX,1,NY,GD1,NY,NX). 
SET NEXT LARGER-Z 'SLAB' DENSITY, D1H, IF HSLAB=.T. & PARAB=F 
EG. IF(HSLAB) CALL SET(D1H,1,NX,1,NY,GD1H,NY,NX). 
SET D(LN(D1))/DP (IE. DIDP) FOR UNSTEADV FLOW, 
EG. IF(MSLAB) CALL SET(D1DP,1,NX,1,NY,GD1DP,NY,NX). 
1000 CONTINUE 
IF (MSLAB) GO TO 101 
JP1=P1 
JH1=H1H 
JD1=D1H 
JW1=W1H 
JV1=V1H 
GO TO 102 
101 JP1=P1 
JH1=H1 
JD1=D1 
JW1=W1 
JVISVI 
102 CALL GET(JP1,GP,NY,NX) 
CALL GET(JH1,GH,NY,NX) 
CALL GET(JW1,GW,NY,NX) 
CALL GET(JV1,GV,NY,NX) 
DO 103 IX=1,NX 
DO 103 IY=1,NY 
GHS=GH( IY, IX)-(GWC IY, 1X )**2+GV(IY, IX) **2)/2. 
103 GD(IY,IX)= GP(IY,IX)/(1-1/GAMA)/GHS 
CALL SET(JD1,1,NX,1,NY,GD,NY,NX) 
RETURN 
CHAPTER 11: SET PHASE 2 DENSITY HERE WHEN IRHO2=-1 IN DATA. 
SET CURRENT-Z 'SLAB' DENSITY, D2, IF MSLAB-.T., 
EG. IF(MSLAB) CALL SET(D2, 1, NX, 1, NY, GD2, NY, NX). 
SET NEXT LARGER-Z°'SLAB' DENSITY, D2H, IF HSLAB=.T. & PARAB=F 
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C EG. IF(HSLAB) CALL SET(D2H,1,NX,1,NY,GD2H,NY,NX). 
SET DCLN(D2))/DP FOR UNSTEADY FLOW, 
EG. IF(MSLAB) CALL SET(D2DP,1,NX,1,NV,GD2DP,NX,NX). 


CHAPTER 12: SET PHASE 1 VISCOSITY HERE WHEN IEMU1=-1 IN DATA. 
SET CURRENT-Z 'SLAB' VISCOSITY (MU1), IF MSLAB=.T., 

‘EG. IF(MSLAB) CALL SET(MU1,1,NX,1,NY,GVISC,NY,NX). 

SET NEXT LARGER-Z 'SLAB' VISC. (MU1H), IF HSLABs.T. & PARAB-F 
EG. IF(HSLAB) CALL SET(MUIH, 1, NX, 1, NY, GVSCH, NY, NX). 


CHAPTER ALSO ACCESSED WHEN EMULAM=-1.0 IN DATA, SO THAT THE 
LAMINAR VISCOSITY WHICH APPEARS IN WALL FUNCTIONS & IN THE 
KE-EP TURBULENCE MODEL (IEMU1=2) MAY BE SET NON-CONSTANT. 
SET CURRENT-Z 'SLAB' VALUE (MU1LAM) WHEN LAMMU=.T., 

EG. IFCLAMMU) CALL SET(MU1LAM,1,NX,1,NY,GVSCL,NY,NX). 


с) СЕ СЕ Q со сз сс) с со 


1200 CONTINUE | 
GCP-RAIR/(1.-1/GAMA) 
IF (MSLAB) CALL GET(HI,GH,NY,NX) 
IF (HSLAB) CALL GET(HIH, GH, NY, NX) 
IF (MSLAB) CALL GET(CW1,GW,NY,NX) 
IF (HSLAB) CALL GET(WIH,GW,NX,NX) 
IF (MSLAB) CALL GET(V1,GV,NY,NX) 
ТЕ (HSLAB) CALL GET(VIH,GV,NX,NX) 
DO 121 IX=1,NX 
DO 121 IY=1,NY 
GTMP=(GH(IY,IX)-GWCLY, IX) **2/2 .-GVC IY, IX) *¥2/2.)/GCP 
IF(GTMP.LT.150.) GTMP=150. 

121 GVISC(IX,IX)21.716E-05X(GTMP/273.)XX0.666 

C121 IF(GVISC(IV,IX).LE..8E-5) GVISCCIY,IX)=.8E-5 

IF (MSLAB) CALL SET(MU1,1,NX,1,NY,GVISC,NY,NX) 
IF (HSLAB) CALL SET(MU1H,1,NX,1,NY,GVISC,NY,NX) 
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IF (LAMMU) CALL SET(MUILAM,1,NX,1,NY,GVISC,NY,NX) 

RETURN 

CHAPTER 13: SET EXCHANGE COEFFICIENT (E.C.) FOR VARIABLE 
INDVAR WHEN SIGMA(INDVAR)=-1.0 IN DATA. 

SET CURRENT-Z 'SLAB' E.C. (EXCO) IF MSLAB-.T., 

EG. IF(MSLAB) CALL SET(EXCO, 1, NX, 1, NY, GEXCO, NY, NX). 

SET NEXT SMALLER-Z 'SLAB' E.C. (EXCOL) IF LSLAB=.T., 

EG. IF(LSLAB) CALL SET(EXCOL, 1, NX, 1, NY, GEXCOL, NY, NX). 

SET NEXT LARGER-Z 'SLAB' E.C. (EXCOH) ТЕ HSLAB=.T., 

EG. IFCHSLAB) CALL SET(EXCOH,1,NX,1,NY,GEXCOH,NY,NX). 

NOTE: FOR MSLAB, INDVAR=U1,..C4; FOR LSLAB, INDVAR=U1L,..C4L 
& FOR HSLAB, INDVAR=U1H,..C4H. IF PARAB=.T. SET MSLAB ONLY. 
CONTINUE 

RETURN 

CHAPTER 14: SET INTER-PHASE FRICTION COEFFICIENT (CFP) HERE 
WHEN ICFIP = -1 IN DATA; ITS UNITS = FORCE / (CELL X RELATIVE 
SPEED OF PHASES). | 
CONTINUE 

RETURN 

CHAPTER 15: SET INTER-PHASE MASS-TRANSFER RATE PER CELL (MDT) 
HERE WHEN IMDOT = -1 IN DATA. 

CONTINUE 

RETURN 

CHAPTER 16: SET HERE PHASE 1 & 2 SATURATION ENTHALPIES 

( HST] & HST2) WHEN IHSAT = -1 IN DATA. 

CONTINUE 

RETURN 
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APPENDIX C 
INPUT FILE FOR PROGRAM CALCULATING LAMINAR FLOW QUANTITIES 


H(IZ) W(IZ) RO(IZ) V(IZ) 
5.518Е+05 7.003Е+02 2.303 .424Е%05 4.885Е%05 
5.071E+05 5.741E*02 2.313 .432Е+05 4.044E*01 
4.711E*05 4.617E*02 2.310 .430Е%05 3.256Е%01 
4.318Е%05 3.128E+02 2.293 .416Е%05 2.206Е+01 
4.116Е+05 2.181Е+02 2.294 .416Е%05 1.536Е%01 
4.039E+05 1.725E402 2.300 .421Е+05 1.210Е+01 
4.016Е+05 1.564Е+02 2.303 .424Е+05 1.094Е+01 
4.010E+05 1.519E+02 2.302 .423Е+05 1. 060Е+01 
4.006E+05 1.510E+02 2.300 .422E+05 1.053E+01 
4.554E+05 3.734Е%02 2.295 .417Е+05 2.540E401 
4.294E*05 2.878Е+02 a SET .419Е%05 2.032Е%01 
4.225Е+05 2.643E*02 .2.292 .415Е+05 1.870Е%01 
4.168Е%05 2.470E+02 2.282 .407Е+05 1.742E+01 
4.769E+05 4.863E*02 2.242 .374E+05 3.130E+01 
4 .646E*05 4 .447E*02 11827 .042E+05 1.723E+00 
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APPENDIX D 
LAMINAR OUTPUT FLOW FIELD 


DATA TAKEN FROM DEFAULT.DTA ON GROUP AZC 
FILE MODSTL.FTN IS THE SATLIT USED. 


BODY-FITTED-COORDINATE OPTION ACTIVE 


Fl ARRAY IS DIMENSIONED TO 
MINIMUM ALLOWABLE DIMENSION FOR F] 


5000 
1318 


THIS VERSION OF PHOENICS MUST BE USED 

IN ACCORDANCE WITH THE SPRING 1983 PHOENICS 
INSTRUCTION MANUAL | 

(PHOENICS LAST AMENDED ON 04/12/84) 


X-X-X-. PHOENICS USER CODE MARK 1, ISSUED BY CHAM (U.K.) LTD. -X-x-x 
x-x-x- ON 09.10.81 COPYRIGHT, CHAM LTD. RIGHTS RESTRICTED -х-х-к 


BODY-FITTED-COORDINATE OPTION ACTIVE 


F1 ARRAY IS DIMENSIONED TO 
MINIMUM ALLOWABLE DIMENSION FOR Fl 


10000 
2700 


x-x-x-  PHOENICS USER CODE MARK 1, ISSUED BX CHAM (U.K.) LTD. -х-х-х 
x-x-x- ОМ 09.10.81 COPYRIGHT, CHAM LTD. RIGHTS RESTRICTED  -X-Xx-x 
FLOW FIELD AT, ISWEEP= 100, ISTEP= 1 

FIELD VALUES OF H 


IY=25 3.200E+00 3.200E*00 3.200E+00 3.200E+00 3.200E*00 
17Հ24 3.200E*00 3.200E*00 3.200E*00 3.200Е+00 3.200Е+00 
IY=23 3.200Е+00 3.200E*00 3.200E*00 3.200E*00 3.200Е+00 
IY=22 3.200E+00 3.200Е+00 3.200E+00 3.200E*00 3.200E+00 
IY=21 3.200E+00 3.200E+00 3.200E+00 3.200E+00 3.200E+00 
IY=20 3.200E+00 3.200E+00 3.200E+00 3.200E+00 3.200E*00 


85 


147519 
17518 
17517 
17516 
147515 
17514 
17213 
17512 
17511 
17510 


м ыч г տ G ма Q 


LY 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 1 
IZ= 

IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 


am Oo a aun fa fa D: Q G G а а от о с: a 


а Gi G G G GQ G GQ GQ G сс а WwW Q 


.200E+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200E*00 
.200E*00 
.200Е%00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 


.200Е+00 
.200Е+00 
.200Е%00 
.200Е%00 
.200E*00 
.199E*00 
.199E+00 
.199Е+00 
.199Е%00 
.198Е%00 
.198Е+00 
.197E+00 
.197E*00 
.197E*00 
.196E*00 


Q со G G GQ ՕԳ G G G G GQ G GQ G Q GQ G o GQ а 


а GQ GQ G G GQ сс GQ сс GQ G G GQ G аа 


.200Е%00 
.200E*00 
.200Е+00 
.200Е+00 
.200E*00 
.200Е%00 
.200Е%00 
.200E*00 
.200Е%00 
.200Е+00 
.200Е%00 
.200E*00 
.200Е+00 
.200Е%00 
.200Е+00 
.200Е+00 
.200E*00 
.200E*00 
.200Е%00 


.200Е+00 
.200Е+00 
.200E*00 
.200E*00 
.200Е+00 
.199E+00 
.199E+00 
.199E+00 
.199Е%00 
.198Е+00 
.198Е+00 
. 197Е+00 
.197E*00 
.196E*00 
.195E+00 
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а ы G G GQ GQ G са са GQ GQ GQ G GQ GQ G G GQ а 


аз Gi G GQ GQ G GQ сс ՕԱ G GQ GQ G G ао 


.200Е%00 
.200Е%00 
.200Е%00 
.200E+00 
.200E+00 
.200Е%00 
.200Е%00 
.200E+00 
.200E+00 
.200E+00 
.200E+00 
.200E+00 
.200E+00 
.200E+00 
.200E+00 
.200Е%00 
.200Е%00 
.200Е%00 
.200Е+00 


.200Е%00 
.200Е%00 
.200Е+00 
.200Е+00 
.200Е%00 
„199Е+00 
.199Е%00 
..199E+00 
.199E*00 
.198E*00 
. 198E+00 
,197Е%00 
.196E*00 
.195E*00 
. 193E+00 


а G GQ G G я GQ G ՕԳ GQ GQ G GQ G GQ GQ GQ G Թ 


NW G G G GQ G GQ GQ G GQ G GQ G GQ до 


.200Е%00 
.200Е+00 
.200Е+00 
.200E*00 
.200E*00 
.200E*00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200E*00 
.199E*00 
.198E*00 
.196E*00 
.195E*00 
„195Е+00 
.195Е%00 
ШОБЕ ГОД 


.200E+00 
.200E*00 
.200Е%00 
.200E*00 
.199E*00 
. 199E*00 
.199E*00 
. 199E+00 
.198Е%00 
.198E*00 
.T97E+00 
.196E*00 
.194Е%00 
.190Е%00 
.183E*00 


а OQ ос GQ G GQ G G GQ G сс аз а G G GQ Գ GQ а 


а GQ GQ GQ ՕԳ G GQ G GQ G GQ GQ GQ ՕՕ Q 


.200E+00 
.200E+00 
.200E+00 
.200Е%00 
. 199E+00 
„199Е+00 
.199E*00 
.199E*00 
.199E+00 
.199E*00 
. 198E+00 
.198E*00 
.195E*00 
.185Е+00 
.157E*00 
.135Е+00 
.119E*00 
.110E*00 
.108Е%00 


.200Е%00 
.200Е%00 
.200Е%00 
.200Е%00 
.199E+00 
.199E*00 
.199E*00 
.198E*00 
.198E*00 
.197E*00 
:195Е+00 
.192Е%00 
.187E*00 
.178E*00 
.163bE*00 


IY= 


H 
ԷՀ 
и 
Nn а Ք տ Oo ՀՊՎ о о о 


IY= 


— 


IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
175 
IY= 
IY= 
IY= 
IY= 
IY= 


Ñ GQ г дл с м о 


ә N ч сс G G сс G GQ аа 


N N GQ G G Ա GQ G G са G G GO GQ G G G G G G G Ա GQ Q 


.195E*00 
.194Е%00 
.191Е%00 
.181E*00 
.148E*00 
.077E*00 
. 033E+00 | 
.007Е%00 
.992Е%00 
.430Е+00 


.200Е%00 
.200Е%00 
.200Е%00 
.199Е%00 
.199E*00 
.199E*00 
.198Е%00 
.197Е%00 
. 196ԵՀ00 . 
.194E*00 
.190Е%00 
.183Е%00 
.173Е+00 
.156Е%00 
MISŻETFOO 
.100E+00 
.063E+00 
.030E+00 
.010E+00 
.005E+00 
.008Е%00 
.001E*00 
.987Е%00 
%7 ЭЗЕТ0 0 


N 2 G G G G G G а 


— 


N ср қа G G G GQ GQ GQ G G G G GQ G G G G G G G G GQ Q 


.194E+00 
.191E+00 
„18ЗЕ+00 
.160Е%00 
.099Е%00 
.027Е%00 
.002Е%00 
.993Е%00 
.962Е%00 
.991Е%00 


.200Е+00 
.200Е+00 
.199Е+00 
.199Е+00 
.199Е+00 
.198Е+00 
.197Е+00 
.195Е+00 
.192Е+00 
.187Е+00 
.179Е+00 
.167Е+00 
.150E400 
.125E400 
.095Е+00 
.063Е+00 
.034Е+00 
.015E*00 
.007Е+00 
.006E*00 
.007Е+00 
.001Е+00 
.983Е+00 
.713EF00 
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N N ми па а G GQ а а 


— 


CQ N GQ GQ G GQ G ՕԳ GQ G GQ G G G G G G G G G G G Կ Q 


.188Е%00 
.178Е%00 
.158Е%00 
.116Е%00 
.046Е%00 
.012Е%00 
.001Е%00 
.995E*00 
.931E*00 
.601E*00 


.199Е+00 
.199Е+00 
.199Е+00 
.199Е+00 
.198Е+00 
.196Е+00 
.194Е+00 
.190Е+00 
.185Е+00 
.176Е+00 
.163Е+00 
.144Е+00 
.120Е+00 
.091Е+00 
.062Е+00 
.036Е+00 
.019Е+00 
.010Е+00 
.007Е+00 
.006Е+00 
.008Е+00 
.001Е+00 
.981Е+00 
.678E*00 


t9 юм ՕԳ Ս ՕԱ G G ՕՕ Թ 


— 


ma 
S 
S 
.198E*00 
.196E+00 
.194Е%00 
.190Е%00 
.185Е%00 
.176Е%00 
.163Е%00 
.145Е%00. 
.121Е%00 
.094Е+00 
.065Е%00 
.041E+00 
.024Е%00 
.013Е%00 
.009Е+00 
.008Е+00 
.007ՔՀ00 
.009Е%00 
.002Е%00 
.979Е%00 
.644Е+00 


N N ՕԱ G G G ԱՕ G G G G GQ G G G GQ G G G G Թ 


.170E+00 
.147E*00 
.109E*00 
.058E*00 
.012Е%00 
.011Е%00 
.004Е%00 
.996Е%00 
.866Е%00 
.086Е%00 


199Е%00 
199Е%00 
199Е%00 


Հ ә о сс G GQ о G GQ о 


— 
e 


N MO G G G GQ GQ G G G G G GQ GQ C) GQ G G G G G G Կ CA 


.139Е%00 
.104Е%00 
.062Е%00 
.024Е%00 
.005Е%00 
.009Е%00 
.003Е%00 
.991Е%00 
.803Е+00 
:575E-0! 


.199Е+00 
.199E*00 
.198Е%00 
.197Е%00 
.195Е%00 
.192Е%00 
.187Е%00 
.180Е%00 
.169Е%00 
.153E*00 
.132E+00 
.106E+00 
.078E+00 
.052E+00 
.032Е+00 
.019Е%00 
.013E+00 
.010Е%00 
.009E*00 
.009E*00 
.011E*00 
.004E*00 
.980E*00 
.645Е+00 


IY= 1 


17525 
17524 
IY=23 
IY=22 
17521 
17520 
17-19 
17218 
17217 
17516 
17515 
17514 
172135 
IY-12 
IY-11 
17510 
IY= 9 
IY= 8 


Ց mW Ñ G G G GQ G GQ GQ GQ G G GQ Q GQ G GQ GQ G GQ. G GQ G G — 


Би 


— 
o 


2 N N N U U сы 


== 


9886-01 


.199Е%00 
.198Е%00 
.198Е%00 
.196Е%00 
.194Е%00 
.190Е%00 
.185Е%00 
.176Е%00 
.163Е%00 
.146Е%00 
.123Е%00 
.096Е%00 
.068Е%00 
.045Е%00 
.028Е%00 
.018Е%00 
.014Е%00 
.012Е%00 
.011E+00 
.011Е%00 
.012Е%00 
.004Е%00 
.976Е%00 
.606Е%00 
.991Е-01 


.194Е%00 
.154Е%00 
.077Е%00 
.972Е%00 
.846E*00 
.707E*00 
.561E+00 


S. 
12 
. 199E+00 
.198Е%00 
.198Е%00 
.196E*00 
.194Е%00 
.190E*00 
.184Е%00 
.175Е%00 
.162Е%00 
.144Е%00 
.120E*00 
.093E*00 
.066E* 00 
.043Е+00 
.028E*00 
.019Е%00 
.016Е%00 
.015Е%00 
.014Е%00 
.013Е+00 
.014Е%00 
.007Е%00 
.978Е%00 
.597E+00 
.J79E=01 


O N N) G GQ G ы оа GQ GQ Ս са сос G ՕՍ GQ G G а GQ GQ GQ GQ GQ Q 


= 
- 


N N N ә о о с 


427Е-01 


. 194E+00 
.154E+00 
.078E*00 
.973Е+00 
.849Е+00 
.712E+00 
.569Е+00 
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Ба 
13 
.199Е%00 
.198Е%00 
.198E*00 
.196E*00 
- 194E+00 
.190E*00 
.184Е%00 
.174Е%00 
.161E+00 
.142Е%00 
.118Е%00 
.091E+00 
.065Е%00 
.043Е+00 
.029Е+00 
.022Е%00 
.019Е%00 
.018Е+00 
.017E*00 
.017E*00 
.019Е%00 
.013E+00 
.986Е%00 
.599E*00 
.583E-01 


O N N U U U G GQ GQ GQ GQ GQ G G GQ GQ GQ GQ GQ GQ G GQ GQ GQ а 


= 
СО 


271E-01 


Ñ G G G G G са GQ са ՕԱ G GQ G GQ сс GQ G GQ GQ GQ GQ G CI 


57 
14 
.199E*00 
.198E*00 
.198E*00 
.196Е%00 
.194Е%00 
.190Е%00 
.184E*00 
.174E*00 
. 160E*00 
. 141E*00 
.117E*00 
.090E*00 
.064Е+00 
.044Е%00 
.031Е+00 
.024Е%00 
.022Е%00 
.021Е%00 
.020Е%00 
.021E+00 
.030E+00 
.038Е+00 
.033E+00 
.686E*00 
.695Е+00 


W 


239E-01 


1.296E400 


15 

.199Е%00 
.198E*00 
.198E*00 
. 196E+00 
.194E*00 
.190E*00 
. 184E+00 
.175E*00 
.161E*00 
.143E+00 
.119E*00 
.093Е%00 
.068Е%00 
.049E+00 
.037Е%00 
.031Е%00 
.029E+00 
.028E+00 
.028Е+00 
.030Е+00 
.052Е+00 
.077E+00 
.081E*00 
.738Е+00 
.603Е+00 


N GQ GQ GQ са G GQ GQ GQ G G сс са са GQ G GQ GQ G G GQ GQ GQ Q 


N 4 
e 


IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
IY= 
IY= 
IY= 
Гү 
IY= 
IY= 
IY= 
IZ= 


-4 N ог ол A Վ о 


2.412E+00 
2.262E+00 
2.112E+00 
1.963Е+00 
1.819Е+00 
1.683E+00 
1.562Е+00 
1.458Е+00 
1.368Е+00 
1.291Е+00 
1.222Е+00 
1.160Е+00 
1.104E*00 
1.079E+00 
1.087E+00 
1.112E*00 
1.035E*00 
5.906E-01 
21 


2.424Е+00 
2.279Е+00 
2.137Е+00 
1.996Е+00 
1.858Е+00 
1. 728Е+00 
1.609Е+00 
1.503Е+00 
1.411Е+00 
1.330Е+00 
1.257Е+00 
1.189E*00 
1.126E+00 
1.091E*00 
1.095E*00 
1.116E*00 
1.040Е%00 
6.047Е-01 
22 


FIELD VALUES OF T (temperature) 


IY=25 
17-24 
17-25 
17-22 
17-21 
ІҮ=20 
ІҮ=19 
IY-18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 


1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
16990E+02 
1.990E+02 
IPASJOIEROZ 
1.990E+02 
1.990E+02 
1.990Е+02 
1] .990E+02 
1.990E+02 


1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
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.990E+02 
.990E*02 . 
.990Е+02 
.990Е+02 
.990E*02 
.990Е+02 
.990Е+02 
.990Е+02 
.990Е+02 
:99WETU2 
.990Е+02 
.990Е+02 
.990Е+02 
.990Е+02 
.990Е+02 


.990E*02 
.990E+02 
.990E*02 
.990Е+02 
.990E+02 
.990E+02 
.990E+02 
.990E+02 
.990Et02 
.990E+02 
29395502 
.990E*02 
.990Е+02 
.990E*02 
.990E+02 


.990E+02 
.990E+02 
.990E+02 
.990E+02 
.990E+02 
.990Е+02 
.990Е+02 
. 990E*02 
Coo Ves 02 
“JJNE FOZ 
-991E+02 
.991ETr02 
.992E+02 
.992E+02 
.992E+02 


IY= 


IY= 
IY= 


==) 


N N N N 3 NY NY м ғ 


.990E+02 
.990E*02 
.990Е+02 
.990Е+02 
.990Е+02 
.990Е+02 
.990Е%02 
.990Е%02 
.990E*02 
.990E*02 


.990E*02 
.990Е+02 
.990Е+02 
.990Е+02 
.991Е+02 
.991Е+02 
.992Е+02 
.992Е%02 
.993E+02 
.994Е+02 
.994Е+02 
.995Е+02 
.996E+02 
.997E+02 
.999E+02 
.000E+02 
.003E+02 
.008E+02 
.022E+02 
.065E+02 
.134E+02 
.167E+02 
.178E+02 
.181E+02 


— 


N N N о мо о 2 32 шм 


. 990E*02 
.990E*02 
.990E*02 
.990E*02 
. 990E*02 
. 990E*02 
.990Е+02 
.990Е+02 
.990Е+02 
.990E*02 


.990Е+02 
.990Е+02 
.990E*02 
.990E*02 
.991E*02 
.991E*02 
.992Ет02 
.992Е+02 
.993Е+02 
.994Е+02 
.995Е+02 
.995Е+02 
.997Е+02 
.998Е+02 
.999Е+02 
.002Е+02 
.007E*02 
.018Е+02 
.045Е+02 
.108Е+02 
.148E*02 
. 165ЕҒ02 
. 173E*02 
.210Е%02 
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1.990E*02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990Е+02 
1.990Е+02 
1.991E+02 
1.991E+02 
1.991E+02 
3 
1.990E+02 
1.990E+02 
1.990E+02 
1.991E+02 
1.991E+02 


1.991Е+02 


1.992Е+02 
1.992Е+02 
1.993Е+02 
1.994Е+02 


` 1.995Е+02 


1.996E+02 
.998E*02 
.000E*02 
.004E* 02 
.012E+02 
.027E*02 
2055E-t*02 
.100E* 02 
.151E+02 
.144Е+02 
5 ЕТО 
.167Е+02 
.244Е+02 


— 


N N N NY 23 о мо мо ә 2 ON 


1.990E+02 
1.990E+02 
1.990E+02 
1.991E+02 
1.993ԵՀ02 
1.997E+02 
1.999E+02 
1.999E+02 
1.999E+02 
1.999E*02 
4 

1.990Е+02 
1.990Е+02 
1.990Е+02 
1.991Е+02 
1.991Е+02 
1.991Е+02 
1.992Е+02 
1.992Е+02 
1.993E*02 
1.994Е+02 
1.996E+02 
.998E* 02 
.001E*02 
.007E*02 
.016E*02 
.033Е+02 
.059E*02 
.097E*02 
.136E*02 
.156E*02 
.143Е+02 
SISZETOŻ 


= 
. 


.171E*02 
„328Е+02 


N N N NY N NY о и 


— 


N N о о о 2 


— 


о NN NN NN 2 о мо о мо шм 


.993Е+02 
.993Е+02 
.995Е+02 
.999Е+02 
.017E+02 
.073Е+02 
.117Е%02 
„153Е+02, 
.172Е+02 
.176Е%02 


.990E*02 
.990Е+02 
.990Е+02 
.991Е+02 
.991Е+02 
.992Е+02 
.992Е+02 
.993Е+02 
.994Е+02 
.996E*02 
.999Е+02 
.003Е+02 
.010Е+02 
.021E+02 
.038E*02 
.063E*02 
.095E*02 
-128E+02 
. 149E*02 
.152E*02 
.145Е+02 
.160E*02 
.178E*02 
.404Е+02 


аа N N N Թ Թ Թ о NY Թ Ի о Թ ә о г 


2.759E+02 


— 


— 


.990Е%02 
.990Е%02 
.990Е+02 
.991E+02 
. 991E +02 
.992Е+02 
:99655+02 
.994Е+02 
.996E+02 
. 000E* 02 
.005Е+02 
.013Е+02 
.025Е%02 
.043Е%02 
.067E*02 
.095E+02 
. 123E+02 
.143Е+02 
‚150Е+02 
.150Е+02 
.146E*02 
.161E*02 
.182E*02 
.459Е+02 
.514Е+02 


.991E+02 
.991Е+02 
 992EÉET02 
.993Е+02 
.995Е+02 
.998Е%02 
.003E*02 


3.085Е+02 


= 


=й 


WN о о N N NY NY о о о, мю NY ә DS 2 ON 


.990E«02 
.990Е%02 
.991E*02 
.991Е+02 
‚ ЭЭ2Е+02 
.993E+02 
:995ET02 
.997Е+02 
.001E*02 
.007E* 02 
.016Е+02 
.029Е%02 
.047E*02 
.070E*02 
.096E*02 
.120E* 02 
.138E*02 
.146E*02 
. 149E* 02 
.150E*02 
.146E*02 
.161E*02 
.186E*02 
.500E+02 
.517E+02 
та 


991E+02 
991E*02 


-992E F02 
.993Е+02 
.995E+02 
.999E+02 
.003E*02 
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3.288E+02 


а N N N N Թ Թ NY о о о оі о ә о NYY — 


Q 


.991E+02 
.991E+02 
.991E+02 
ZETO? 
.993E+02 
.995E+02 
.998E+02 
.002Е%02 
.009E*02 
.019E*02 
.032E+02 
.051E+02 
.073E+02 
.097E+02 
.118E*02 
.134Е+02 
.142Е%02 
.146Е%02 
.148Е%02 
.149Е%02 
. 145E*02 
.160E*02 
.188E*02 
.534E+02 
.517E+02 


.991E+02 
99 ТЕ 202 
-992E t02 
.993Е+02 
.995Е+02 
29995 m 
.004E*02 


3. 


պպ աա Ամ F Косово 


-—  — 


456E+02 


.991E+02 
.991E+02 
.992E+02 
.993E+02 
.994E+02 
.996E+02 
.000E+02 
.006E+02 
.014E+02 
.025E+02 
.042E+02 
.062E+02 
.085E+02 
.107E+02 
.125E+02 
, 136E402 
.142E+02 
.144E+02 
.146E+02 
.147E+02 
.143E+02 
.158E+02 
.189E+02 
.565E+02 
.516E+02 


-991E +02 
en Ole, 
.992Е+02 
.993Е+02 
9525902 
.998Е+02 
.003E*02 


Эк 
10 
29 2 
.991Е+02 
29925702 
.993Е+02 
‚„995Е+02 
9985502 
.003Е+02 
.009E*02 
.020E*02 
.055Е%02 
.052Е+02 
.074E*02 
. 096Е%02 
.116Е%02 
.130E*02 
.1375+02 
. 140E* 02 
.142Е+02 
.144Е+02 
.145Е+02 
.142Е%02 
3L58ET02 
.190E*02 
.566Е+02 
.481E*02 


1 
1 


ЕЕ VEC ee eee: оа» ш Дә. “Аса 


503E+02 


991Е+02 
991Е+02 


-992E t02 
. 993E*02 
. 994E*02 
"997E+02 
.001E*02 


IY=18 
17517 
17516 
17515 
17Հ14 
17515 
IY=12 
IY=11 
IY=10 
175 9 


ՒՎ 
< 
и 
Ñ G гол о ՀՊՎ о 


Qi оі о N N N ԾԹ NNN NYDN NN NY NY м ғ 


ՔԻ HL + + + + G ы G, G DD Թ о м мә D 


.010E+02 
.020Е%02. 
.034E*02 
.053E*02 
.075E*02 
.097E*02 
.115Е+02 
.128Е+02 
.135E*02 
.138Е+02 
.139Е+02 
.141Е+02 
.143E*02 
.140Е%02 
.156E*02 
‚19ЗЕ+02 
.605E+02 
.503Е+02 
16 


002Е+02 


.091Е+02 
.255Е+02 
.476E*02 
„1 29Et02 
.994Е+02 
.258Е+02 
„ӘТОЕ+О2 
.747E*02 
.967E*02 
.170E+02 
JOSETFUŻ 
.518E+02 
.655Е+02 
.768E*02 
.861Е+02 


м N N N N ԾԹ NNN NN NNN NY NY NY PM 


+ А + Ի Ք + G O G G Թ о ә NY ә м [D 


.011E+02 
.021E+02 
.036E+02 
.054E+02 
.076E+02 
.098E+02 
.115E+02 
.126Е+02 
.132Е+02 
.135Е+02 
.136Е+02 
.138Е+02 
.140Е+02 
.137E402 
.152E+02 
.190E+02 
.613E+02 
.499E+02 
17 


002Е+02 


.091E+02 
„2ББЕ+02 
.476Е+02 
„7235 ог 
.994E*02 
"OS ZES02 
.507Е+02 
.742Е+02 
ADZETFUŻ 
‚151Е+02 
‚320Е+02 
. 456Е+02 
.546Е+02 
БЛ ЛЕ Е 02 
.532E+T02 
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WN NY NY Թ ԹՀ Թ NN NNN NN о о мг 


Со 


.011Е+02 
.022Е+02 
.036E*02 
.055E*02 
.077Е%02 
.097E*02 
.114E*02 
.124Е%02 
.129E*02 
.131Е%02 
.132E*02 
.134Е%02 
.135E*02 
.130E*02 
.141E*02 
.175E*02 
.605Е+02 
.488E*02 


WN ԾԹ Թ Թ Թ Թ Թ Թթ Թ D ԾԹ ԾԹ Թ о мо Թ [D 


-— 
10 


.010E*02 
.021E*02 
.036Е+02 
.055Е+02 
.077Е+02 
.097Е+02 
.113Е+02 
.123Е%02 
.127E*02 
. | 295+02 
.130E*02 
.132Е+02 
.131E*02 
.114E*02 
.102E*02 
.094E*02 
.470E*02 
.236Е+02 


WN ԾԹ ос оо оғ Լ» NN NNN в ON 


N 
© 


.008Е%02 
.018E*02 
.032Е+02 
.049Е+02 
.070Е+02 
.089E*02 
.104Е +02 
.114E*02 
.119E*02 
.121E*02 
. 123E+02 
.124Е%02 
. 122E+02 
.094Е%02 
.080Е+02 
‚112Б+02 
.516Е+02 
.304Е+02 


IY= 9 4.937E+02 
IY= 8 5.001Е+02 
IY= 7 5.056E+02 
IY= 6 5.103E+02 
IY= 5 5.128E+02 
IY= 4 5.123E+02 
IY= 3 5.065E+02 
IY= 2 4.754E+02 
IY= 1 3.969Е+02 
Iz: 21 

FIELD VALUES OF H1 
171-525 6.150Е%05 
1724 6.150Е%05 
17-25 6.150Е%05 
174-522 6.150E+05 
IY-21 6.150E+05 
17520 6.150Е+05 
IY=19 6.150Е%05 
174218 6.150E+05 

 IYs17 6.150Е%05 
IY=16 6.150E+05 
17215 6.150E+05 
IY=14 6.150E+05 
172515 6.150Е%05 
IY-12 6.150E+05 
ІҮ511 6.150Е%05 
IY=10 6.150Е%05 
IY= 9 6.150Е%05 
IY= 8 6.150Е%05 
IY= 7 6.150E+05 
IY= 6 6.150E+05 
IY= 5 6.150Е%05 
IY= 4 6.150E+05 
IY= 3 6.150Е%05 
IY= 2 6.150E+05 


Q со с с QO с с с с с с с со с со с со с с A A с сос о 


.381Е+02 
.078Е+02 
.546Е+02 
.656E*02 
.176E*02 
.260Е%01 
.998Е%00 
.779E*01 
.017Е%01 


.150E*05 
.150E*05 
.150Е%05 
.150E*05 
.150Е%05 
.150Е+05 
.150Е+05 
,150E405 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E+05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
2150E* 05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 


93 


Q ос с Оо с со с с с с со с с с с с с с со с A BW о 


.150Е%05 
15085505 
.150E+05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
‚150Е+05 
.150Е%05 
.150Е%05 
.150Е%05 
‚150Е+05 
.150E*05 
.150E*05 
al50ET05 
.150E*05 
.150E*05 
.150Е%05 
„159Е+05 
.150E*05 


с сеа с осо с с յ ՇԿ с с с с с с с с с со с со с пс с с а 


.150E+05 
.150E*05 
.150Е%05 
.150E*05 
.150Е%05 
.150E+05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E* 05 
.150E+05 
.150E*05 
‚150Е+05 
.150E*05 
.150E* 05 
.150E*05 
.150E*05 
.150E*05 
.150E+05 
.150E*05 
.150E*05 
.150E* 05 
.150E*05 


со с с с с с с сп с с с с с с Կ Ն с с со с се с е а 


.150Е%05 
.150Е%05 
‚150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150E*05 
.150E* 05 
.150Е%05 
‚150Е+05 
-1506+05 
. 150E+05 
#150Е+05 
.150E*05 
‚150Е+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150Е%05 
.150E*05 
.150Е%05 


IY= 1 


IY=25 
ТҮ=24 
ТҮ=23 
IY=22 
IY=21 
IY=20 
174219 


6.150E+05 
1 

, 150E405 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150Е+05 
.150Е%05 
.150E*05 
.150Е+05 
.150E*05 
.150Е%05 
.150E*05 
.150Е+05 
.150E*05 
.150Е+05 
.150E*05 
.150E*05 
.150E+05 
.150E+05 
.150E*05 
‚150Е+05 
.150E+05 
.150Е%05 
.144Е%05 
.518E+05 
6 

6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6 
6 
6 


ло сос ԿՇ О, О О, О, О с со с со о ՃՆ о Փ Q о оо о о ас 


.150E*05 
.150E*05 
.150E*05 


6.150E+05 
Հ 4 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150E+05 
.150E*05 
.150E+05 
.150E*05 
.114E*05 
.071E*05 
7 
6.150E405 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6 
6 


ло Оо с сос ՇԿ о с со Q ОО Оо с со Оо Оо Оо о со сто га 


.150E*05 
.150E*05 
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6.150E*05 
3 

.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
.150E*05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150E*05 
.150E*05 
, 149E405 
.075Е+05 
.711E*05 
8 

6.150E405 
6.150E405 
6.150E405 
.150E*05 
.150E*05 
.150E*05 
.150E+05 


го O со со с ՇԿ с ՇԿ ՓՃ со ՓՃ Կ со с с по со ՓՇ ՇԿ Կ ԹՇ бес ԿՆ ՇՆ GCG 


со г о 


го со бо с GO Q O O О с со DAA A A A Կ A AA A о га 


6. 


го со пс а о 


150Е+05 


.150E*05 
.150E*05 
.150Е%05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
„150Е+05 
.150Е+05 
.150Е+05 
.150E*05 
,150E405 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150E*05 
.150E+05 
.145E*05 
.001Е%05 
,318E405 


.150E*05 
‚150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150E+05 
.150E*05 
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6.150E+05 
Ы 

.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
. 150E*05 
.150E*05 
.150Е+05 
.150Е+05 
.150Е+05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
AUGE S05 
.150Е+05 
.150E*05 
.150E*05 
.141Е%05 
.955Еғ05 
.116E*05 
10 

.150E*05 
. 1505+05 
01505705 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 


O а а Оо Կ о о 


175 1 


17525 
17-24 
17-25 
17522 
17-21 
IY=20 
IY=19 
IY=18 
THU 
IY-16 
IY=15 
IY=14 
IY=13 
Puedo 
IYs11 
IY=10 


Ի տ е со Q Q Q Q со с пс со Оо о све г а 


— 
h 


Оо О GA Կ OA са Q Q Q Q Q о о о о A 


.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
..150E+05 
.150Е%05 
.150E+05 
.150Е%05 
.150Е%05 
.150Е%05 
.137E*05 
,883E405 
.039Е+05 


.150E*05 
‚150Е+05 
.150Е%05 
.150E*05 
.150E*05 
‚ ЪБОЕ#05 
. 150E+05 
.150E*05 
.150E*05 
1506405 
.150E*05 
.150E*05 
.150E405 
.150E*05 
.150E+05 
.150E+05 


Ի տ.  Ճ ՃԵ с GO с с со со со с со се га 


-— 
г 


с со с Կ с с DADA о о о о о о о 


„150Е+05 
.150Е+05 
.150E*05 
.150EH05 
.150Е+05 
.150Е+05 
.150E*05 
.150E+05 
.150E+05 
.150E+05 
.150E*05 
.150E*05 
.150E*05 
.150E+05 
.149Е+05 
,134Е%05 
.838Е+05 
.016Е+05 


.150E+05 
.150E+05 
.150E*05 
БЕ 05 
.150E*05 
.150Е +05 
„150Ё+05 
.150E*05 
‚150Е+05 
‚150Е+05 
.150E+05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
3150EX05 
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е мо оо о сос с այա ԺԱ նյ 


сс сеа сеа Կ сеа о со с пос с о о оо 


.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
. 150E+05 
‚ 149Е+05 
.130E+05 
.797E+05 
.010Е+05 


.150E*05 ` 
.150Е%05 
.150Еж05 
.150Е%05 
.150E+05 
.150E*05 
.150E*05 
„150Е+05 
.150E*05 
.150E*05 
.150E+05 
.150E+05 
.150Е%05 
.150E+05 
‚150Е+05 
.150E*05 


"ODOUNMO mo oco 0 O0 e ACORN EM 


QV са сс са с с с со со со а OW A 


.150E*05 
.150E*05 
.150Е+05 
.150Е%05 
.150Е%05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
‚150Е+05 
.150E+05 
.150E*05 
.149E*05 
.127Е%05 
.757E+05 
.006E*05 


.150Е%05 
.150Е%05 
.150E+05 
.150E*05 
.150E*05 
.150E+05 
.150E*05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
„150Е+05 
.150E+05 
.150E*05 
.150E*05 
ОПБОЕ+0О5 


Ի տ О пс со GA с GA ՇՆ Q Q Q Q о о о о о 


տ 


QV сеа са G Կ с с с с с со с с с г A 


.150E*05 
.150Е%05 
.150Е+05 
.150E*05 
.150E*05 
.150Е%05 
.150Е+05 
.150Е%05 
.150E*05 
.150E*05 
‚150Е+05 
.150E+05 
.150E*05 
.150E+05 
.149Е%05 
‚126Е+05 
‚ "55Е+05 
.554E+05 


.150E+05 
.150E+05 
.150E+05 
.150E*05 
.150E+05 
.150E+05 
. 150Er+r05 
.150E+05 
.150E+05 
.150E+05 
.150E*05 
.150E*05 
. 150Е+05 
.150Е+05 
.150E*05 
.150Е%05 


IY= 


IY= 


N G + U O м ә 


Ի Ал о о о A A сс а 


.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.149Е%05 
.121E*05 
.715Е%05 
.294Е%05 
16 
6. 


150Е%05 
150E405 


6 
6.150E405 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
б 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
5 
4 


150E405 


.150E*05 
.150E*05 
.150E+05 
.150E*05 
.150E*05 
.150E+05 
.150E*05 
.149Е%05 
.142Е%05 
.088Е%05 
-ӨЛЛЕЕОЕ 
3928EbT05 


Ի տ oOo oan о о © 


A B p^ տատ O 0 օյ оо Se СО Бо до БО 22 ux 


= QW wo ~= 


.150Е%05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
. 149Е%05 
.120Е%05 
.704Е%05 
.225Е+05 


.150Е+05 
.150Е+05 
.150Е%05 
.150Е%05 
.150E+05 
.150E*05 
, 149E405 
.148Е%05 
.145Е%05 
.140E*05 
.131Е+05 
.114E*05 
.083E*05 
.030E*05 
.938Е+05 
,785Е%05 
.552Е%05 
.123Е+05 
.471E*05 
.429Е%05 
.761E*05 
.337Е+04 
.912Е+04 
.068E*04 
.236Е+03 
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м ол о о о о о с с 


— 
со 


.150Е%05 
.150Е%05 
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.000E+00 
.170E-02 
.744Е-02 
‚ 126Е-02 
.261E-02 
.664Е-01 
:983Е-01 
.349Е-01 
.547E-01 
.691Е+00 
.967E*00 
.127E+00 
.660Е+00 
.414Е+01 
.202E+01 
2 15EtO] 
коа ЛЕКОТ 
.281E+01 
.868E+01 
.049E+01 
.046E+01 
.038E*01 
.009E*01 
.466Е+01 
.094E*01 
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.019E*00 
.959E+00 
.743Е+00 
.444Е+01 
.510E*01 
. 999E* 01 
.080E*01 
.954E*01 
.256E*01 


.000Е%00 
.426Е-02 
.989Е-02 
.508Е-01 
.685Е-01 
.690Е-01 
.128Е-01 
.398Е%00 
.379Е+00 
.996Е+00 
.586Е+00 
.058Е+01 
.640Е%01 
.423E*01 
.369Е+01 
.363Е+01 
.208Е+01 
.768E+01 
.013E+01 
.053E+01 
.058E+01 
.044E+01 
.004E+01 
.393E+01 
.060E+01 


— 


N ол о ԹՇ oO + 2 


O G N о со 


——-— СО U NQ — — 


տ տ. СО ՕՕ Aa Q տ дл дл го о 


w 


. 466E*00 
.367Е+01 
.698E*01 
.618Е%01 
- 130E+01 
2 139E401 
.092Е%01 
.810E*01 
.206E*01 


.000Е%00 
.774Е-02 
.0351Е-01 
.776Е-01 
3585E-071 
.120E*00 
.879Е+00 
.108E* 00 
»057E+00 
.053Е+00 
.246Е+01 
.857E*01 
.638Е+01 
.536E+01 
.434E*01 
.188E*01 
.706E*01 
.971E+01 
.049Е%01 
JOSŻEHOI 
.059Е+01 
.045Е%01 
.999Е+01 
.325Е+01 
.053E*01 


թ տ տ от с Ճ O ԺԹ տ տ Ք + Q N 


= 


տ о о о о г N 


же мм ОГ NN — оо о л N 


.700E+01 
.890E+01 
.385Е+01 
.672Е+01 
.067E*01 
.069E*01 
.046Е+01 
,664E401 
,536E401 


.000Е%00 
.266E-01 
.905E-01 
.369Е-01 
.501Е-01 
.569Е%00 
.604Е%00 
.251Е+00 
.805E+00 
.062Е+01 
.603E*01 
.316E+01 
c. 173E401 
.081E+01 
.889Е+01 
.500Е+01 
.867Е+01 
.023E*01 
.053E*01 
.048E*01 
.038E*01 
.004Е+01 
.938Е+01 
.255Е%01 
.540Е+01 


IY=25 
ТҮ=24 
IY=23 
IY=22 
IT-29 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
i 
TT 
IY= 
IY= 
IY= 
IY= 
IY= 
me~ 
IZ= 

IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
JY=19 
IY=18 


9 ым г іл Oo ՀՁ о 


Ñ տ С O O O с с пл տ տ A Ա ә о 


11 


ափ ss) ՎԿ տ 


о UW WA N 


== 


= іл 9 o - 
о 


= 


ՀՎ в U 


.000E*00 
.811E-01 
.099E-01 
.520E-01 
.293Е+00 
.163Е+00 
.550Е%00 
.718E+00 
.000E+00 
.375Е+01 
.021Е+01 
.827Е+01 
.726Е+01 
-57 7E t01 
.262E+01 
.724E+01 
.965E+01 
.046E+01 
.052E+01 
.046E+01 
.046E*01 
.046Е%01 

.012E+01 
.278E+01 
.032E+01 


.000E+00 
.563E-01 
.779Е-01 
.059E*00 
.818Е+00 
.032Е+00 
.946Е+00 
.898E*00 
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0 Оо U N 


տ Ժ с с с с с пл տ іл г U N N = 


— oo 
“J 


=- N U СО 


о г N 


.000Е%00 
.958E-01 
.423Е-01 
.107E-01 
.393Е+00 
.326Е+00 
.811E+00 
.122Е%00 
.602Е%00 
.460Е+01 
.133Е+01 
.963Е+01 
.871E*01 
.702E*01 
.352Е+01 
.776E*01 
.987E*01 
.050E*01 
.051Е%01 
.045Е%01 
.051E*01 
.061E*01 
.025E*01 
.265Е+01 
.870E*01 


.000E*00 
.246Е-01 
.709E-01 
.522E+00 
.800E+00 
.892E+00 
.121Е%00 
.278E+01 
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տ с ОУ С ОУ О ОУ С տ տ A AUNI 


— CE 
Со 


.000E*00 
.111Е-01 
.760Е-01 
.717E-01 
.497Е%00 
.497Е%00 
.083Е+00 
.542Е+00 
,023E401 
.549Е+01 
.249Е+01 
.101Е+01 
.013Е+01 
.822Е%01 
.436Е+01 
.822Е+01 
.003Е+01 
.052Е+01 
.050Е+01 
.045Е+01 
.056Е+01 
.064Е+01 
.021E+01 
.248E+01 
.742E+01 


=” — O A N- ON N с 


а дл дл с со с с со տ տ с A UNI 


19 


.000E*00 
.271E-01 
.105E-01 
.344Е-01 
.603Е+00 
.672Е%00 
.363Е%00 
.976Е%00 
.087E*01 
.639Е%01 
.367Е+01 
-241E+01 
.151E+01 
.934E+01 
.512E+01 
.861E+01 
.016Е%01 
.053E+01 
.049E*01 
.043Е+01 
.039E*01 
.964Е+01 
.819Е%01 
.058E*01 
.130E*01 


Q U U с с О ԺԵ տ տ տ AUN 


Հ + N ә лл о о 


=. 
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.000Е+00 
.430E-01 
.461E-01 
.998E-01 
.716E*00 
.860E+00 
.669E+00 
.458E+00 
.160E+01 
.743Е%01 
.502Е%01 
.396Е%01 
.298Е+01 
.051Е+01 
.587Е+01 
.898E*01 
.027E+01 
.052E+01 
.046E+01 
.029E+01 
.879E+01 
.160E+01 
.630Е+01 
.374Е+01 
.723Е%00 
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IY=17 1.226E+01 1.897E+01 

IY=16 1.857E401 2.654E401 

IY=15 2.624E+01 3.486E+01 

IY=14 3.534E401 4.297E401 

ІҮ=13 4.425Е+01 4.971Е+01 

14512 5.150E+01 5.427E+01 

IY=11 5.650E+01 5.650E+01 

IY=10 5.928E+01 5.655E+01 

IY= 9 6.035E+01 5.466E+01 

IY= 8 6.052E+01 5.086E+01 

IY= 7 6.042E+01 4.463E+01 

IY= 6 5.999E+01 3.476E+01 

IY= 5 5.595E+01 1.921E+01 

IY= á 4.130Е+01 4.419Е+00 

IY= 3 1.798E401 -9.833E-01 

IY= 2 2.055E400 -2.498E+00 

IY= 1 1.738E-01 -3.098E+00 

IZ= 21 22 

. FIELD VALUES OF WRES 

17525 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.885E+02 
IY=24 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.885E+02 
1Ү-25 8.885Е+02 8.885Е+02 8.885E+02 8.885Е+02 8.885Е+02 
IY=22 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.885E+02 
IY=21 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.885E+02 
IY=20 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.885E+02 
IY=19 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.884E+02 
IY=18 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.884E+02 
IY=17 8.885Е+02 8.885Е+02 8.885Е+02 8.885Е+02 8.884Е+02 
ТҮ=16 8.885Е+02 8.885Е+02 8.885Е+02 8.885Е+02 8.884Е+02 
IY=15 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.884E+02 
IY=14 8.885E+02 8.885E+02 8.885E+02 8.885E*02 8.883E*02 
IY-13 8.885E402 8.885E402 8.885E+02 8.885E+02 8 .883E+02 
IY=12 8.885E+02 8.885E+02 8.885E402 8.885E402 8.883E*02 
ІҮ-11 8.885E* 02 8.885E*02 8.885Е+02 8.885E402 8.882Е+02 
IY=10 8.885E+02 8.885E+02 8.885E+02 8.885E+02 8.882E+02 


IY= 
IY= 


IY= 
IY= 
IY 
IY= 

IZ= 

IY=25 
ІҮ=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
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и 
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IY- 
IY- 
IY= 
IY= 
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.885E* 02 
.885E*02 
.885E* 02 
.885E*02 
.885Е%02 
.885E*02 
.885E*02 
.885E*02 
.885E*02 


.885E* 02 
.885E* 02 
.885E*02 
.884E*02 
.884E*02 
.883E*02 
.883Е+02 
.882Е+02 
.881E*02 
.880Е+02 
.879E*02 
.878Е+02 
.877E*02 
.876Е+02 
.874Е+02 
.872Е+02 
.869Е+02 
.863Е+02 
.845Е+02 
„791Е+02 
.702E*02 
.655E+02 
.635Е+02 
.618Е+02 
.003Е+02 


տ 0 со со со C со со о (Q C о о о со со со о со оо со со о о о оо о о о о о 


.885E*02 
.885E*02 
.885E*02 
.885Е%02 
.885E*02 
,885E402 
.885E*02 
.885E*02 
.885E*02 


.885E*02 
.885Е%02 
.885E*02 
.884Еғ02 
.884E*02 
.883E*02 
. 883E*02 
.882Е+02 
.881Е+02 
.880Е+02 
.879Е+02 
.878E*02 
.877E*02 
.875E*02 
.873E*02 
.870E*02 
.864E*02 
.850Е%02 
.816Е%02 
.736E*02 
.676E*02 
.648Е%02 
.634Е+02 
.544Е+02 
.741E*02 
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го со о о о о о о о о о о о со CC со со со о со о о со C хі о о о о о о о о со 


.885Е+02 
.885Е+02 
.885E*02 
.885E*02 
.884E*02 
.884E*02 
.884Е+02 
.884E*02 
.884E* 02 


.885E*02 
.885Е+02 
.884Е+02 
.884Е+02 
.884Е+02 
.883Е+02 
.883Е+02 
.882Е+02 
.881E*02 
.880E*02 
.879E*02 
.877E*02 
.875Е+02 
.872Е%02 
.867E*02 
.857E*02 
.839Е+02 
.804Е+02 
.746E*02 
.678Е+02 
.673Е+02 
.653Е+02 
.638Е+02 
.454Е+02 
.617Е+02 


ч о о о о о о о о о о о оо о о о со со C C Q O о Оо о г оо оо о о о о о о с 


.885E*02 
.885E*02 
.884E*02 
.881E*02 
.876E*02 
.874E*02 
.873E*02 
.873E*02 
.873E402 


.885E*02 
.885E*02 
.884E*02 
.884Е+02 
.884Е+02 
.883Е+02 
.882Е+02 
.882Е+02 
.881Е+02 
.879Е+02 
.878Е+02 
.875E*02 
.871Е+02 
.864Е+02 
.852E+02 
.831E+02 
.798E*02 
.750E*02 
.697E*02 
.663E* 02 
.671E*02 
.652Е+02 
.629Е+02 
.254Е+02 
.128E*02 


9 о о о о со о о о о о о о со о оо со со о о о о со по о оо о о о о о 


.881E*02 
.879E*02 
.873E*02 
.851E*02 
.781E*02 
.725E*02 
.679Е+02 
.655E+02 
.650Е+02 


.885Е%02 
.885E*02 
.884E* 02 
.884Е+02 
.884Е+02 
.883Е+02 
.882Е+02 
.881E*02 
.880E*02 
.877Е%02 
.874Е+02 
.869E*02 
.860E*02 
.847Е+02 
.825Е+02 
.793Е+02 
„75 1Е+02 
.707E*02 
.673Е+02 
.662Е+02 
.668Е+02 
. 649Е+02 
.616E*02 
.073Е+02 
.181E*02 


12 
17525 
17-24 
17523 
17522 
1752 | 
17520 
14519 
17518 
17517 
14516 
147515 
17-14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 


IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IZ= 
IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=]9 
IY=18 


թ Q Ք տ G м с 


— 


- C о о о о со о о со сос со со о со о о о о о о о о о о 


— 
-— amd 


с о о о о о о о 


.885Е+02 
.884E*02 
.884E*02 
.884E*02 
.883Е+02 
.882E*02 
.,881E*02 
.879Е+02 
.877Е+02 
.873Е+02 
.866Е+02 
,856E402 
.841Е+02 
.819Е+02 
.788Е%02 
.750Е%02 
' 7 г2ЕТ+02 
.682Е+02 
.666Е+02 
.662E*02 
.667Е+02 
.648Е+02 
.606Е%02 
.931E*02 
.725Е+02 


.884Е+02 
.883E*02 
.882E*02 
.881E*02 
.878E*02 
.874E*02 
.869Е%02 
.860E*02 


Հ со о о о о со со со со о о со со о со. оосо со о о о о о о N 


=. 


O о о о о о о о N 


.884Е+02 
.884E*02 
, 884E402 
.883Е+02 
.882Е+02 
.881Е+02 
.879E*02 
.876Е+02 
.871Е+02 
.864Е+02 
.852Е+02 
.836Е+02 
.813Е+02 
.783E*02 
.749E*02 
.715E+02 
.688E*02 
.672E*02 
.665E*02 
.663Е+02 
.668Е+02 
. 648E*02 
.598Е+02 
.818E*02 
.564E* 02 


.884Е+02 
.883Е+02 
.882Е+02 
.881E*02 
.878E*02 
.874Е+02 
.868Е+02 
.859E*02 
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ə со о о о о о о о со о с о о со о о о со о о о со о о 


.884Е+02 
.884Е+02 
.883Е+02 
.882Е+02 
.881Е+02 
.878Е+02 
.875E*02 ` 
.869Е+02 
.861E*02 
.849Е+02 
.832E+02 
.808Е%02 
.779E*02 
.747Е+02 
.717Е+02 
.693Е+02 
.677E402 
.669E+02 
.665E*02 
.664Е%02 
.668E*02 
.648E+02 
.591E+02 
.717E+02 
.519E+02 


.884E+02 
.883Е+02 
.882Е+02 
.881E*02 
.878E*02 
.874Е+02 
.868E*02 
.858E*02 


- о о о со со со со со о со со со о ց о о со ա о о о ж 


od 


O о о о о о о о г 


.884Е%02 
.884Е%02 
.883E*02 
.882E*02 
.880E*02 
.877E*02 
.872E+02 
.865E+02 
,855E402 
.840Е+02 
.819E*02 
.793Е+02 
.762Е%02 
.730E*02 
.704Е%02 
.685Е+02 
.675E*02 
.670E*02 
.667Е%02 
.666E+02 
.671E*02 
.651E*02 
.585E+02 
.620Е%02 
.510E*02 


.884Е%02 
.883Е+02 
.882E*02 
.881E*02 
.879E*02 
.875E*02 
.869E* 02 
.860E*02 


(о о о осо со со со (л ԱՊ Վ © © бо о о оо со со со со Թ со со Թ со о со о со о Թ Թ © 


.884Е%02 
.883Е+02 
.882Е%02 
.881E+02 
.878Е+02 
.875Е+02 
.869E*02 
.860E*02 
.848Е+02 
.830Е+02 
.806E*02 
.777Е%02 
.746Е%02 
.717Е%02 
.695Е+02 
.682Е+02 
.676Е+02 
.672Е+02 
.670Е+02 
.668E*02 
.672E*02 
.651E*02 
.584Е+02 
-618E+02 
.734Е+02 


.884Е%02 
.883Е+02 
.883Е+02 
.881Е+02 
.879E*02 
.876E*02 
.871E*02 
.862Е+02 


IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
IY= 


IY= 
IY= 
IY= 
IY 
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IX-24 
ГҮ-23 


IY=22 


IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
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.847E*02 
.828Е+02 
.804E*02 
.774E*02 
. 743E*02 
.715E*02 
.696Е+02 
.684E*02 
.678E*02 
.676E*02 
.675Е+02 
.671E*02 
.675Е+02 
.654Е+02 
.574E*02 
.507Е%02 
.878E*02 


.870E*02 
.759Еғ02 
.548Е+02 
.257E*02 
.911E+02 
.530E+02 
.132E*02 
.729E*02 
.327Е+02 
.927Е+02 
.551E+02 
.143Е+02 
„772Е#®02 
.434Е+02 
.136E*02 
.877Е+02 
.652Е+02 


= 


ՀՎ 9 Վ о о о осо осо о о о о о о о mQ 


.845Е+02 
.826Е+02 
.802Е+02 
.772Е%02 
.741Е%02 
.715E*02 
.697E*02 
.687E*02 
.682E+02 
.680E+02 
.677E+02 
.675E+02 
.679Е+02 
.658Е+02 
.576E*02 
.480Е+02 
.643Е%02 
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о N N о о о со о со о оо о о о о о о 


.845Е+02 
.825Е+02 
.800Е+02 
.770Е+02 
.741Е+02 
.716Е+02 
.700Е+02 
.691Е+02 
.687Е+02 
.685Е+02 
.683Е+02 
.681Е+02 
.688Е+02 
.672Е+02 
.594Е+02 
.478Е+02 
.470Е+02 


- 


o A м © о со о со со сс о оо о со о о о о 


.846Е%02 
.826Е%02 
.801Е+02 
.770Е+02 
. 740E* 02 
.716E*02 
.700E*02 
.692Е+02 
.689Е+02 
.687E*02 
.685Е+02 
.686E+02 
.708E*02 
.723Е+02 
. 700Е+02 
.702E*02 
.863E+02 


ՔԻ м о о о сос сос со сс сос со о о о о о о 


№ 
о 


.849Е+02 
.831E+02 
.807E+02 
.778E+02 
.750E+02 
.727E+02 
„712Е+02 
.703Е+02 
.700Е+02 
.697Е+02 
.695Е+02 
.698Е+02 
.734Е+02 
.750E+02 
.659E+02 
.616E+02 
.447E*02 


о ы гг іл с Վ Օ 


ТҮ 


IY= 
jie 
IY= 
IY= 
IY= 
IY= 
12= 


m 
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.452Е%02 
.271E*02 
.107Е+02 
.023Е+02 
.040Е+02 
.097Е+02 
.879Е+02 
.642Е+02 


FIELD VALUES OF WCRT 


IY=25 
ІҮ=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 8 
IY= 7 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 1 


о UA A їл о 


8. 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885E*02 
.885Е+02 
.885E*02 
.885Е+02 
.885E*02 
.885Е+02 
.885E*02 
.885Е+02 
.885E+02 
.885E+02 
.885E* 02 
.885E*02 
.885Е+02 
.885Е+02 
.885Е+02 


о о о о о со о со со о со со со о о о со осо о сос со о о о 


885E+02 


.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 


о о со о о со о о осо со со о о о со со осо оо со со о о о со 


.885Е%02 
.885Е%02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
.885E+02 
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о о о о со со © со о со о осо о осо со со со оо со о о о о о 


.885Е%02 
.885E* 02 
.885E*02 
.885E*02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885E*02 
.885E*02 
.885E*02 
,885E*02 
.885E*02 
.885E*02 
.885Е%02 
.885Е+02 
.885Е+02 
.884Е+02 
.884Е%02 
.884Е+02 
.884Е+02 
.884Е+02 


о о о со о со со со O со со со со со о со о со со о о о о о о 


.885Е%02 
.885E*02 
,885E*02 
.885E*02 

.885E+02 
.885Е+02 
.885E*02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
‚885Е+02 
.885E*02 
.885Е+02 
.885E*02 
.885E*02 
.885Е+02 
.884E*02 
.881E*02 
.876Е+02 
.874Е+02 
297502 
.873E402 
-873Е+02 


о о со о со со о о со со о осо со со со со оо со о о о о о о 


.885Е+02 
.885Е+02 
.885Е+02 
.885E*02 
.885Е+02 
.885E*02 
.885Е+02 
.885E*02 
.885Е+02 
.885Е+02 
.885Е%02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.884Е+02 
.883Е+02 
.877Е+02 
#855Е+02 
.786Е+02 
.729Е+02 
.684Е+02 
.661Е+02 
.655E+02 


IZ= 
IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
pr--9 
IY- 
IY- 
IY= 
IY= 
= 
IY= 
IY= 


ә сы Վ G O Վ О 


12 
17525 
IY-24 
17-25 
17522 
IY=21 
IY=20 
IY=19 
IY=18 


— 


O о со о о о о о со с о о о со о о о о о о о о о о о о о о о о о о о о 


.885E+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885E*02 
.885Е+02 
.884Е%02 
.883E+02 
.878E+02 
.862E+02 
.808E*02 
„7 ТЕ+02 
.655Е+02 
.622Е%02 
.600E+02 
.986E*02 


.885E*02 
.885E*02 
.885E*02 
.884E* 02 
.884Е+02 
.884Е+02 
.883E+02 
.882Е+02 


о о о о о со со о Վ տ о о со со о о о о о со о оо о  Փ о о о о о о о о WN 


.885E*02 
.885Е+02 
.885E+02 
.885E*02 
.885E*02 
.885E*02 
.885Е+02 
, 885E402 
.885E*02 
.885E*02 
.885Е+02 
.885E*02 
.885E+02 
.884Е+02 
.884Е+02 
.882E*02 
,877E402 
.865Е+02 
.831Е+02 
.747Е%02 
.670E*02 
.631E*02 
.613Е+02 
.523Е+02 
ода Е+02 


.884Е+02 
.884E*02 
.884Е+02 
.884Е+02 
.883Е+02 
.882Еғ02 
.881Е+02 
пет ЗЕ 102 
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c о о о о © © со со г со со Փ Փ со со ооо со со с с с со о о со о о о о о о о сі 


.885Е%02 
.885E*02 
.885E*02 
.885Е+02 
.885Е+02 
.885E*02 
.885E*02 
.885E*02 
,885E402 
.885Е+02 
.884Е+02 
.884Е+02 
.883E+02 
„881Е+02 
.877E+02 
.869Е+02 
.852E+02 
.817E+02 
.758E+02 
.681E+02 
.656E+02 
.632Е+02 
.617Е+02 
.433Е+02 
.606Е+02 


.884Е+02 
.884Е+02 
.884Е+02 
.883Е+02 
.882Е+02 
.880Е+02 
.877Е+02 
.872E*02 


O о со со со со со о о ы о о со со со со ж  Փ со Q со сс о оо оо о о о о о о с 


.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
.885Е+02 
,885E402 
.885Е+02 
.885Е+02 
.884Е+02 
.884Е+02 
.883Е+02 
.882Е+02 
.879E*02 
.873E*02 
.862Е+02 
.842Е+02 
.808Е+02 
ИБТ7Е+ОЗ2 
.697Е+02 
.652Е+02 
.649E*02 
.630Е+02 
.607E*02 
.234Е+02 
.120E*02 


.884E*02 
.884Е+02 
.883E402 
.882Е+02 
„В81Е+02 
.878E*02 
.874Е+02 
.867Е+02 


о о о со со со со со о ос о о о о о о о QO с) ос ооо о соо о о о о о кл 


.885E*02 
.885E*02 
.885E*02 
.885E+02 
, 885E402 
.884Е+02 
.884Е+02 
.884Е+02 
.883Е+02 
.882Е+02 
.880Е+02 
.875Е+02 
.868Е+02 
.855Е+02 
.833Е+02 
.800E*02 
‚7 55ЕЖО2 
.705E+02 
.663Е+02 
.643Е+02 
.647Е+02 
.628Е+02 
.595E+02 
.053Е+02 
.176E*02 


.884Е+02 
.883Е+02 
.883Е+02 
.881E*02 
.879E*02 
.876Е+02 
.871Е+02 
.862E+02 


IY= 


IY=25 


ІҮ=24 


IY-23 
LY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 


- Հ O со оо со со со о со о о о о о 


— 
առ 


о о о о о о о о о ա о о о о о о о 


.880E+02 
.877E+02 
.872Е+02 
.862Е%02 
.848Е%02 
.825Е+02 
.793Е+02 
.752Е+02 
.709Е%02 
.671E*02 
.649Е+02 
.641Е%02 
.646E+02 
.627Е%02 
.585Е+02 
.912Еғ02 
.721Е%02 


.884Е%02 
.883E*02 
.882Е+02 
.881E*02 
.879Е+02 
.875E*02 
.870E* 02 
.861Е+02 
.848Е +02 
.828Е+02 
.802Е+02 
17 70Е+02 
.755Е%02 
.703E+02 
.680E*02 
.666Е+02 
.659Е+02 


“ча NJ о о © сос со со со со ՕՕ со OO о о о со 


о со о ооо со о со со со со со со о о о о г 


.874Е+02 
.868Е+02 
.857Е%02 
.840Е+02 
.817E*02 
.786Е+02 
.748E*02 
.710Е%02 
.677Е+02 
.656Е+02 
.645Е+02 
.642Е%02 
.647Е%02 
.627Е%02 
"577Ë102 
.799Е+02 
.560Е+02 


.884Е+02 
.883E+02 
.882Е+02 
.881Е+02 
.879E* 02 
.875Е%02 
.869Е+02 
.860Е+02 
.846Е+02 
.826Е+02 
.800E*02 
.767E*02 
. 732E+02 
.702Е+02 
.681Е+02 
.668Е+02 
.662Е+02 
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3 о о о о о о о о о со о о о о о 


«աի 


о о о со со со со ա со с со о о о о о о в 


.864Е+02 
.852Е+02 
.835Е+02 
.811Е+02 
.780E*02 
.745Е+02 
.711E*02 
.682E* 02 
.662Е+02 
.650Е+02 
.645Е+02 
.642Е+02 
.647Е%02 
.627Е%02 
.570Е%02 
.698Е+02 
.515Е+02 


.884Е+02 
.883Е+02 
.882Е%02 
.881Е+02 
.879Е+02 
.875E*02 
.869Е%02 
.860E*02 
.845Е+02 
.825Е+02 
. 798E*02 
.765E+02 
.731Е+02 
.703Е+02 
.683Е+02 
.672Е+02 
.667Е%02 


— ՀՎ о со о о со о оо о со о о о о о 


осо 0 со о © с о со со со со оо о о о о + 


,857E402 
.842Е+02 
,821E402 
.792Е+02 
.759Е+02 
:725Е%02 
.693Е+02 
.670Е+02 
.657Е+02 
.650Е%02 
.646Е+02 
.645Е+02 
.650Е+02 
.630Е+02 
.564Е%02 
.601Е%02 
.506Е+02 


.884Е+02 
.883Е+02 
.882Е+02 
.881E402 
„879Е+02 
.875Е+02 
.869Е+02 
.859E*02 
.845Е+02 
.825E*02 
IBE FOZ 
.766Е+02 
.734Е+02 
.707E*02 
.689Е+02 
.680Е+02 
„67БЕ+02 


(> со со со со со со со о со со со со со о со со տ ыз осо о оо о ооо о оо о о о 


.849Е%02 
.831E+02 
.806E*02 
.775Е+02 
. 740Е+02 
.707E*02 
.682Е%02 
.665E*02 
.656Е+02 
.652Е+02 
.649Е+02 
.647E* 02 
.651E*02 
.630Е+02 
.563Е+02 
.599Е+02 
.725Et02 


.884Е+02 
.883Е+02 
.883Е+02 
.881E*02 
.879Е+02 
.876Е+02 
.871E*02 
.862Е+02 
.849Е+02 
.85ТЕ%02 
.807Е%02 
.778Е+02 
.750E+02 
.727Е%02 
.712Е+02 
.703E+02 
.700E+02 


թ» G T G oO Վ о 


M 
IY= 
ТУ“ 
IY= 
Y= 
IY= 


IY= 


c 


IYs25 
ІҮ=24 
ІҮ=23 
ІҮ=22 
ІҮ=21 
ІҮ=20 
ІҮ=19 
ІҮ-18 
ГҮ=17 
ІҮ-16 
ІҮ=15 
ІҮ-14 
IY=13 
IY=12 
IY=11 
IY=10 
Լւ -- 29 
IY= 


IY= 
IY= 
IY= 
IY 
IY= 
IY= 1 
IZ= 


е wa г տ ONO 


Ի со со о о о ա со о о со о со со со со со со со о о о со O NN ա о о о о о 


№ 
ռուի 


.655Е+02 
.652Е%02 
.650E*02 
.654Е+02 
.632Е+02 
.553Е+02 
.488Е+02 
.871E*02 


.884E*02 
-884E+02 
.884E*02 
.885Е+02 
.885Е+02 
.887Е+02 
.888E*02 
.891E*02 
.894Е+02 
.897E*02 
.898E*02 
.896Е+02 
.889E*02 
.879E* 02 
.870E*02 
.862Е%02 
.857E402 
.853Е+02 
.850E*02 
.845Е+02 
.801E*02 
.599Е+02 
.256Е+02 
.353Е+02 
.175E* 02 


— 


ՀՎ 9 м с со со со оо шо 


.659Е+02 
.656Е+02 
.654Е+02 
.658Е+02 
.637Е+02 
,555E402 
.462E*02 
.636Е+02 


ай 


O N N сос о Оо о о о 


.664Е+02 
.662Е+02 
.660Е+02 
.667Е%02 
.651Е+02 
.573Е+02 
.460Е+02 
.464Е+02 


«ռսի 


Ծ Ք Վ O фо о о о о 


.673E+02 
.671E+02 
.671E+02 
.692E+02 
.707E+02 
.685E+02 
.689E+02 
.855E+02 


г ло ооо со о 


№ 
о 


.697E*02 
.695Е+02 
.698E*02 
.754Е%02 
.750Е+02 
.659E* 02 
.616Е+02 
.447E*02 


FIELD VALUES OF PI 


ІҮ=25 
IX-24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
14514 
14213 
14512 
14211 
17510 
IY- 9 
IY= 


m 
„а 
и 

Ñ OG Ք տ Oo - о 


1 
1 


.048E+05 


048E405 


.048E+05 
.048Е+05 
.048Е+05 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е+05 
.048Е%05 
.048E+05 
.048E+05 
.048E+05 
.048E+05 
.048Е+05 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е%05 
:048E405 
.048Е%05 
.048Е+05 
.048Е%05 
.048E*05 
.048Е%05 


.048Е+05 
.048Е+05 
.048Е%05 
.048Е%05 
.048Е%05 
.048E*05 
.048E*05 
.048E*05 


.048E*05 
.048Е%05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е+05 
.048Е+05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е+05 
.048Е+05 
-048Е+05 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е%05 
.048E*05 
.048Е%05 
.048E*05 
.048Е%05 
.048Е+05 
-048E+05 
.048Е+05 
.048E*05 


.048Е%05 
.048E*05 
.048E*05 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е%05 
-048E+05 


.048Е+05 
.048Е+05 
.048Е+05 
.048Е%05 
-048E+05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е%05 
.048Е%05 
.048Е+05 
.048Е%05 
.048Е%05 
.048E+05 
.048Е+05 
.048Е+05 
.048E*05 
.048Е%05 
.048Е%05 
.048Е%05 
.048E+05 
.048Е+05 
.048Е+05 
.048Е+05 
.048E*05 


.048E405 
.048E*05 
.048E*05 
.048Е+05 
.048Е+05 
.048Е%05 
.048Е+05 
.048Е+05 


.048Е%05 
.048Е%05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е%05 
.048E*05 
,048E405 
.048Е%05 
.048E*05 
.048Е%05 
.048Е+05 
.048Е+05 
.048E*05 
.048Е+05 
.048Е+05 
.049Е+05 
.049Е+05 
.049E*05 
.050E*05 
.050Е%05 
.050E*05 


.048Е%05 
.048E*05 
.048Е%05 
.048Е+05 
.048Е+05 
.048E*05 
.048E*05 
.048Е%05 


.048E405 
.048Е+05 
.048Е+05 
.048E*05 
.048Е%05 
.048Е%05 
.048Е%05 
.048E*05 
.048Е+05 
.048Е%05 
.048Е+05 
.048Е%05 
.048Е%05 
.048Е+05 
,048E405 
.048Е%05 
.048Е%05 
.049E*05 
.050Е%05 
.055Е+05 
.063Е+05 
.066Е%05 
.067E*05 
.067E*05 
.067E+05 


.048E+05 
.048E+05 
.048E+05 
.048E+05 
.048E*05 
.048E*05 
.048Е%05 
.049E*05 


IY-17 


IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
IY= 
ГҮ= 
ТУ“ 
IY= 
IY= 
IY= 


N G A (л Oo м с 


IZ 
IY=25 
IY=24 
IY=23 
IY=22 
i-21 
IY-20 
ІҮ=19 
ІҮ=18 
IY=17 
IY=16 
IY=15 
17514 
17515 
IY=12 
n=" 
ІҮ-10 
i= 9 


1 
1 


.048Е+05 
-048E+05 
.048E*05 
.048Е+05 
.048Е+05 
.048Е+05 
.048Е+05 
.048Е+05 
. 049Е+05 
.051E*05 
.060Е+05 
.096Е+05 
.208Е+05 
.301Е+05 
.375Е+05 
.414Е+05 
.424Е+05 


.048Е+05 
.048Е+05 
.048Е%05 
.048Е%05 
.048Е%05 
.049E+05 
.049E+05 
.050E+05 
.051E+05 
-053E+05 
.057E+05 
.064E+05 
.078E+05 
.100E+05 
.137ET05 
.193E*05 
.268E* 05 


.048Е+05 
.048Е+05 
. 048Е+05 
.048E*05 
.048E*05 
.048Е%05 
.049E*05 
.049E*05 
,052E405 
.060E*05 
.087E*05 
.179E+05 
.351E405 
.811Е%05 
.431Е%05 
.434Е%05 
.432Е+05 


.048Е+05 
.048Е+05 
.048Е+05 
.049Е+05 
.049Е%05 
.049Е%05 
.050E*05 
.052E*05 
.056Е+05 
.061E405 
.071E*05 
.087E405 
„112Е+05 
.151E+05 
.206E+05 
.273Е+05 
.342Е+05 
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.048Е%05 
.048E+05 
.048E+05 
-048E+05 
.049Е%05 
.049Е+05 
.050Е+05 
.053Е+05 
.061E*05 
.082Е%05 
.141Е%05 
„282Е+05 
.408Е+05 
.429Е+05 
.432Е+05 
.432Е+05 
.430Е+05 


.048Е+05 
1.049Е+05 
.049Е+05 
.049Е+05 
.050Е+05 
.052Е+05 
.054Е%05 
.059E*05 
.066Е+05 
.077Е+05 
.096Е+05 
.124Е%05 
.164Е+05 
.217E*05 
.278E*05 
.340Е+05 
.387Е+05 


.048E+05 
.048Е%05 
.049Е+05 
.049Е%05 
.051E+05 
.054Е%05 
.061Е%05 
.075E+05 
.105E*05 
.164E*05 
.266E*05 
.390Е+05 
.415Е+05 
.417Е+05 
.417Е+05 
.417Е+05 
,416E405 


.049Е+05 
.049Е%05 
.050Е+05 
.051E+05 
.053E+05 
.056E*05 
.061E*05 
2070E*05 
.083Е+05 
.103Е+05 
„133Е+05 
.174E*05 
1225Е+05 
.283E+05 
.338Е+05 
.381Е+05 
.408Е+05 


.049E+05 
.050Е+05 
.051Е+05 
.054Е+05 
.059Е+05 
.069E*05 
.088Е+05 
.122Е+05 
.180E*05 
.265E+05 
.360Е+05 
.421Е+05 
.419Е%05 
.418Е+05 
.417Е+05 
.417Е+05 
.816Е%05 


.049Е+05 
.050Е+05 
.051Е+05 
.052Е+05 
.055Е+05 ` 
.059Е+05 
.066Е+05 
.077Е%05 
.095Е+05 
.120E*05 
.156Е+05 
.203Е+05 
.259Е+05 
.315Е+05 
.362Е+05 
.396Е+05 
.413Е+05 


ТУ“ 
LY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY 
12 
IY=25 
IY-24 
ТҮ=23 
IY=22 
ГҮ=21 
LY=20 
17519 
14518 


юзю ԱՊ г дл GO мм Q 


l! 
p 


IYs17 


IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
i= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 


Թ ча г տ с Վ о 


16 


.347Е+05 
.405Е+05 
.424Е+05 
.423Е+05 
.422Е+05 
.422Е%05 
.422Е%05 
.421Е%05 


‚050Е+05 
.050E+05 
.051E+05 
,053E*05 
.057E*05 
.063E+05 
.072E405 
.,086E*05 
.108E*05 
, 139E405 
.181E*05 
A9 oEt05 
.289Е+05 
.340Е+05 
.379Е+05 
.403Е+05 
.414Е+05 
.417Е%05 
.417Е%05 
,416E405 
.417Е+05 
.418Е+05 
.419Е+05 
.420Е+05 
.419Е+05 


1.395Е+05 
1.420Е+05 
1.423Е+05 
1.424Е+05 
1. 424Е+05 
1.424Е+05 
1.424Е+05 
1.424Е+05 
12 

1.050Е+05 
1.050Е+05 
1.052Е+05 
1.054Е+05 
1.057Е+05 
1.063Е%05 
1.073Е%05 
1.088Е%05 
1.111Е%05 
1.143Е%05 
1.187Е%05 
1.240Е%05 
1.295Е%05 
1.344Е%05 
1.381Е%05 
1.402Е%05 
1.411Е%05 
1.413Е%05 
1.412Е%05 
1.412E405 
1.414E+05 
1.415E+05 
1.416E+05 
1.416E+05 
1.415E+05 
17 
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18 


.414Е+05 
.423Е+05 
.423Е+05 
.423Е+05 
.423E+05 
.423Е+05 
.423Е+05 
.423Е%05 


.050E+05 
.050Е+05 
.052Е+05 
.054Е+05 
.058Е+05 
.064E+05 
,074E405 
.090E+05 
.113Е+05 
.147E*05 
.192E*05 
.245Е%05 
.300Е+05 
.347Е+05 
.380Е+05 
.399Е%05 
.406Е%05 
.407Е%05 
,407E405 
.407E*05 
.408Е+05 
.408Е+05 
.408Е+05 
.408Е+05 
.407Е+05 


19 


.420E*05 
,422E405 
, 422E405 
.422Е%05 
.422Е%05 
.422Е%05 
.422Е%05 
.422Е+05 


.050E+05 
.050E+05 
.052E+05 
.054E+05 
.058E+05 
.064Е+05 
.075Е+05 
.091Е+05 
.115Е+05 
,150Е%05 
.195E+05 
.249E+05 
.302E+05 
.346E+05 
.377Е+05 
.393Е+05 
.399Е+05 
.399Е+05 
.399Е+05 
.398Е+05 
.393Е+05 
.383Е+05 
.371E+05 
365E+05 
/574E4*05 


20 


.419Е+05 
.420Е+05 
.419Е+05 
.418Е+05 
.417Е+05 
.416Е+05 
.415Е+05 
.417Е+05 


.050E*05 
.050Е%05 
.052Е%05 
.054E* 05 
.058Е%05 
‚ 065Е+05 
.075E+05 
.092E+05 
.117E*05 
.152E405 
, 197E405 
.250E*05 
.300Е+05 
.341Е%05 
.368Е+05 
.382Е%05 
.386Е+05 
.387Е+05 
.386Е+05 
.382E+05 
.347E+05 
.278E+05 
‚159Е+05 
.063E+05 
.042Е+05 


IY= 


IZ= 


1.050E+05 


1.050E+05 
1.051E+05 
1.054E+05 
1.057E+05 
1.063E+05 
1.073E+05 
1.088E+05 
1.111E+05 
1.142E+05 
1.183Е+05 
1.229Е+05 
1.272Е+05 
1.307Е+05 
1.330Е+05 
1.341Е+05 
1.345Е+05 
1.345Е+05 
1.344Е+05 
1.337Е+05 
1.275Е+05 
1.185Е+05 
1.088Е+05 
1.061Е+05 
1.060Е+05 
21 


1.049Е+05 
1.049E405 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E+05 
1.049E+05 
1.047E+05 
1.026E405 
8.849E404 
22 


FIELD VALUES OF PP (densitv) 


IY=25 
IY-24 
IY=23 
IY=22 
ІҮ=21 
IX-20 
ІҮ=19 
ІҮ=18 


1.835E400 
1.835E+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 


1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
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.835E+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835E+00 
.835E+00 
.835Е+00 


.835E+00 
.835Е%00 
.835E+00 
.835Е+00 
.835Е+00 
.835E+00 
.835E+00 
, 835E400 


.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835E*00 
.835Е+00 
.835E*00 


IY= 

IY= 

IY= | 
IZ= 

IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
17511 
IY-10 
IY= 9 


6 
5 
IY= 4 
3 
2 


.835Е%00 
.835Е%00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е%00 
-835E+00 
.835Е%00 
.835Е%00 
.835Е%00 
.835Е+00 
.835Е%00 
.835Е%00 
.835Е%00 
.835Е%00 
.835Е+00 
.835Е%00 


.835Е+00 
.835Е%00 
.835Е+00 
.835Е+00 
.835Е+00 
.835E*00 
.835Е+00 
.835E*00 
.835Е+00 
.835E+00 
.835Е+00 
.835E+00 
.835Е+00 
.835Е+00 
.835Е+00 
.836Е+00 
.837Е+00 


1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
2 
1.835Е+00 
1.835Е+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.836E+00 
1.836E*00 
1.837E*00 
1.840E*00 
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1.835E400 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835Е+00 
1.835E400 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
3 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E*00 
1.835E*00 
1.835E*00 
1.835E+00 
1.835E*00 
1.835E*00 
1.835E*00 
1.836E*00 
1.836E*00 
1.836E+00 
1.838E*00 
1.842E+00 
1.852E+00 


.835Е+00 
.835Е%00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е%00 
.835Е+00 
.835Е+00 
.836Е%00 
.836Е+00 
.837Е%00 
.837Е+00 
:837E400 
.837Е+00 
.837Е+00 


.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
-835E+00 
.835E*00 
.835Е+00 
.835E+00 
.836Е%00 
.836Е%00 
.836Е%00 
.837E*00 
.839Е%00 
.843Е+00 
.852Е+00 
.870Е+00 
.908Е+00 


1.835Е+00 
1.835Е+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.836E+00 
1.836E+00 
1.838E+00 
1.844E+00 
1.855E+00 
1.859E+00 
1.860E+00 
1.860E+00 
1.860Е+00 
5 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835Е+00 
1.836Е+00 
1.836Е+00 
1.836Е+00 
1.836Е+00 
1.837Е+00 
1.839Е+00 
1.843Е+00 
1.849Е+00 
1.862Е+00 
1.887Е+00 
1.931Е+00 
2.004Е+00 


Dr 
IY= 
IY= 
IY= 


IY= 
17 


N GQ T G Oo Վ с 


IZ= 
ТҮ=25 
ТҮ=24 
ТҮ=23 
ТҮ=22 
ТҮ=21 
ТҮ=20 
ТҮ=19 
ТҮ=18 
ТҮ=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
IY= 
IY= 
ЕЕ = 


IY= 
IY= 


г а голем о 


— 


N m ԾԹ Թ [D 


թ о о о NY мо о NY NY D > 


— 
= 


.840E+00 
.851E+00 
.897E*00 
.039Е%00 
.154Е%00: 
.244Е%00 
.291Е%00 
.303Е+00 


.835Е%00 
.835Е%00 
.835Е%00 
.836E* 00 
.836Е+00 
.836Е%00 
.836E*00 
.837Е%00 
.839Е+00 
.842Е%00 
.847Е%00 
.856Е%00 
.873Е+00 
.903Е+00 
.950E*00 
.021E*00 
„1135+00 
.210Е+00 
.281E*00 
.303E+00 
.302Е%00 
.501Е%00 
.301Е+00 
.300Е+00 
.300Е+00 


1.850Е+00 
.886E*00 
.003E*00 
.215Е+00 


— 


.312Е%00 
.315Е+00 
.313Е+00 


P N о ә [D г 


1.836Е%00 
1.836Е+00 
1.836Е+00 
1.836Е+00 
1.836E+00 
1.837E+00 
1.838E+00 
1.841Е+00 
1.845Е+00 
1.852Е+00 
1.865Е+00 
1.885Е+00 
1.918Е+00 
.967Е+00 
.036E*00 
.119E+00 
.204E+00 
.268E*00 
.298Е%00 
.302Е+00 
.303Е+00 
.303Е+00 
.303Е+00 
.303Е+00 
.303Е+00 


зо N N о NY DD Թ о NY в > 


= 
г 


.288Е+00 . 


1.879Е+00 
.954Е+00 
.131E*00 
. 284E*00 
.308E+00 
.312Е+00 
.312Е%00 
.310Е%00 
8 

1.836Е%00 
1.836E+00 
1.836Е%00 
1.837E+00 
1.838E+00 
1.840E+00 
1.843E+00 
1.849E+00 
1.858E+00 
1.873E+00 
1.897E+00 
1.933E+00 
1.984E+00 
2.050E+00 
2.126E+00 
2.201E400 
2.259E+00 
2.291E+00 
2.301Е+00 
2.302Е+00 
2.302Е+00 
2.302Е+00 
2.302Е%00 
2.302E+00 
2.302E+00 
13 


— 


N N N Թ [D г 


— 


N N N NY NNDD 


սա ә ы 


о о о о PD N NY о мю о ә ғ г 


— 
iN 


.983Е+00 
.110E*00 
.263Е+00 
.292Е%00 
.295Е%00 
.A95E*00 
.295Е%00 
.293Е+00 


.837Е+00 
.837Е+00 
,838EH00 
,839Е%00 
.841E*00 
.846E*00 
.852E+00 
.863E+00 
.880E+00 
.906E+00 
,944Е%00 
.996E+00 
.060E+00 
.132E+00 
.199E+00 
.252E+00 
.284E+00 
.298E+00 
.300E+00 
.300E+00 
.300E+00 
.301E+00 
.301E+00 
.300E+00 
.300E+00 


= 


.109E*00 
.A226E*00 
.300Е%00 
.297Е%00 
.295Е%00 
.495E*00 
.A95E* 00 
.294Е%00 


о Թ о о о м м 2 


ша Е, 
e 


.837Е+00 
.837E*00 
1.839E+00 
1.840E+00 
1.844E+00 
1.849Е+00 
1.859E+00 
1.873E+00 
1.895E+00 
1.928Е+00 
.974Е%00 
.033Е+00 
.102E+00 
.171E+00 
.229E*00 
.269E*00 
.290Е+00 
.297Е+00 
.298Е+00 
.297E*00 
.296E*00 
.294E*00 
.293Е+00 
.292Е+00 
.295Е+00 


ЕЕ 


о о лг D NY NY о мо мо NY 2 г 


— 
іл 


IY=25 
IY-24 
IY=23 
IY=22 
ТҮ=21 
ТҮ=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
TY 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 


II 
N ց A M ONO 


= 


IY=25 
IY=24 
IY=23 
IY=22 
ТҮ=21 
IY=20 
IY=19 
IY=18 
IY=17 


1.838E+00 
1.838E+00 
1.840E+00 
1.842E+00 


1.847E*00 


1.854E+00 
1.866E*00 
1.884E*00 
1.912E+00 
.952E+00 
.005E*00 
.070E*00 
.140Е+00 
.202E400 
.249E*00 
.278Е+00 
.291Е+00 
.294Е+00 
.294Е%00 
.294E*00 
.295E*00 
.296E*00 
.298Е+00 
.298E400 
.297E*00 


N Ñ S NY NY [D о о мо оо о ә ом = 


-— «2 
о 


.838E*00 
.838Е%00 
1.840E+00 
1.842E+00 
1.847E*00 
1.855E+00 
1.868E+00 


m 


1.887E*00 
1.916E*00 


1.838Е+00 
1.838Е+00 
1.840Е+00 
1.843Е+00 
1.847Е+00 
1.855Е+00 
1.868Е+00 
1.887Е+00 
1.916Е+00 
.957Е+00 
.012Е+00 
.078E*00 
.147E* 00 
.207E*00 
.251Е+00 
.277Е%00 
.287Е%00 
.290Е+00 
.289Е+00 
.289Е+00 
.291Е+00 
.292Е%00 
.294Е%00 
.294Е+00 
.292Е+00 


N MO Թ Թ Ծ Ծ DD NY NY NNN NY мо N >= 


-ù ` «Վ 
ՀՎ 


.837E+00 
.837E*00 
1.837E*00 
1.837E+00 
1.837E*00 
1.837E*00 
1.837E+00 


== 


1.837E+00 
1.837E+00 


N ԾԹ MO Թ Թ N N Թ ԺԹ NY оо о NN ԾԾ Հ 


-— 
со 


.838E+00 
.838E+00 
.840E+00 
.843Е+00 
.848Е%00 
.856Е%00 
.869Е%00 
.889Е+00 
.919Е+00 
.962Е+00 
.018Е+00 
.085Е+00 
.153Е+00 
.210Е+00 
.250Е+00 
.273Е+00 
.281Е+00 

.283E+00 
.282Е+00 
.282Е%00 
.284E*00 
-284E+00 
.284Е%00 
.284Е+00 
.282Е%00 


N N N N NY N NY ою о м о о о м — 


— 
2 


.838E*00 
.838E+00 
.840E*00 
.843Е+00 
.848Е+00 
.856Е+00 
.870E*00 
.891E*00 
.922Е+00 
.966E*00 
.023Е+00 
.,090E*00 
.155E*00 
.209Е+00 
.246Е%00 
.266Е+00 
.273Е+00 
.274Е%00 
.273Е+00 
.272Е%00 
.266Е+00 
.254Е+00 
.239Е+00 
.233E+00 
.242Е%00 


1.838E+00 
1.838E+00 
1.840E+00 
1.843Е+00 
1.848Е+00 
1.857Е+00 
1.871Е+00 
1.892Е+00 
1.924Е+00 
1.968E+00 
2.025E+00 
2.091E+00 
2.153E+00 
2.203E+00 
2.236Е+00 
2.253E400 
2.258E400 
2.258E400 
2.257E+00 
2.253E+00 
2.211E+00 
2.125Е+00 
1.977Е+00 
1.854Е+00 
1.827Е+00 
20 


` 1286 1.956E+00 1.837E+00 
IY=15 2.007E+00 1.837E+00 
ІҮ-14: 2.065Е%00 1.837E+00 
17515 2.119E+00 1.837E+00 
IY=12 2.161E+00 1.837E+00 
IY=11 2.189E+00 1.837E+00 
IY=10 2.203E+00 1.837E+00 
IY= 9 2.207E+00 1.837E+00 
IY= 8 2.208E+00 1.837E+00 
IY= 7 2.207E+00 1.837E+00 
IY= 6 2.198E+00 1.837E+00 
IY= 5 2.122E400 1.837Е+00 
IY= 4 2.010E+00 1.837E+00 
IY= 3 1.886E+00 1.834E+00 
IY= 2 1.852E+00 1.806E+00 
IY= 1 1.851E+00 1.619E+00 
125 21 22 


FE IE IE IE JE JE JE JE JE JE IE IE IE JE JE JE JE JE JE JE JE J€ JE JE JE JE JE E JE JE JE € E JE JE JE JE JE JE € € E JE JE JE JE JE JE JE JE JE JE JE JE JE J€ X€ X€ X€ XE 
USER:- NAME OF FILE CONTAINING FINAL FLOW FIELDS IS ТМ1 

LAST SWEEP = 100 

LAST STEP = 1 


XXXXXXXXxXXXXXXxxxxxxxxxxxxxxxx 
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APPENDIX E 
PROGRAM CALCULATES LAMINAR DISTRIBUTION QUANTITIES 


THIS PROGRAM CALCULATES CF,ST,Q,H OVER THE VANE FOR 
LAMINAR FLOW 

REALX8 V1(20),V2(20),H(20),W(20),ST(20),0(20),CF(20),RA(20) 
REALX8 BZFRAC(20),EMU,GPGP,PR,HW,HCON(20),R0(20) 

REALX8 REZ(20),CFB(20),Z(20),TAW(20),Y0(20),D1(20) ,D2(20) 
REALX8 P(20),PK(20),CW(20),Z0(20),V(20),TMP(20),VISC(20) 
INTEGER IZ 

GH=6 .4E-03 

GD-10XGH 

GL-95 .2E-03 

GTL21.24XGL 

GBETA-4. 

GBETA-GBETAX3.1415927/180 

GTAB-TAN(GBETA) 

DELMAX=2 .E-03 

GNBL=5. 

GPWR=3. 

EMU-0.8E-05 

ROE=1.835 

РЕ-1.048Е%05 

WE=888.5 

RUU20. SXROEXWEXX2 

RUU-ROEXWEXX2 

GAMA=1.35 

RW=287. 

CP=GAMAXRW/ (GAMA-1. ) 

HW=323 .xCP 

HO=555.5XCP 

PR=0.7 

GPCP=EMU/PR 
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10 


66 


67 


68 


69 


DO 10 IZ=1,6 

V1(IZ)2(1./5. JXXGPWRXDELMAX 

V2(IZ)2(2./5. )XXGPWRXDELMAX 

CONTINUE 

BZFRAC(1)=42.373E-3 

DO 66 1Z=2,8 
BZFRAC(IZ)=42.373E-3+BZFRAC(IZ-1) 

DO 67 IZ=9,14 
BZFRAC(IZ)=84.75E-3+BZFRAC(IZ-1) 

DO 68 IZ=15,16 
BZFRAC(IZ)=42.73E-3+BZFRAC(IZ-1) 

DO 69 IZ=17,20 
BZFRAC(1Z)=11.295E-3+BZFRAC(IZ-1) 

DO 20 IZ-6,20 
V1(IZ)-V1(1)X(GD-(BZFRAC(IZ)-BZFRAC(5))XGTABXGTL)/GD 
V2(IZ)EV2(1)X(GD-(BZFRAC(IZ)-BZFRAC (5) )XGTABXGTL)/GD 
Z(IZ)-(BZFRAC(IZ)-BZFRAC(S))XGTL 
READ(5,12) H(IZ),W(IZ),RO(IZ),P(IZ),V(IZ) 
TMP(IZ)-(H(IZ)-W(IZ)XX2/2.-V(IZ)XX2/2.)/CP 
IF(TMP(IZ).LT.150.) TMP(IZ)2150 
VISC(IZ)21.716E-05X(TMP(IZ)/273.)XX0 .666 
IF(VISC(IZ).LE..8E-05) VISC(IZ)=.8E-05 
TAW(IZ)-2XVISC(IZJXW(IZ)/(V1(IZ)) 
CF(IZ)2TAW(IZ)/RUU 
CW(IZ)2(RO(IZ)/ROE)X(VISC(IZ)/EMU) 
PK(IZ)-P(IZ)/PE 
REZ(IZ)-RO(IZ)KWEXZ(IZ)/VISC(IZ) 
CFB(IZ)-0.664/SQRT(REZ(IZ)) 
ZO(IZ)-SQRT(PK(IZ)XCW(IZ)/REZ(IZ)) 
CFB(IZ)-0.664XZ0(IZ) 
Q(IZ)-(EMU/PR)X2X CHCIZ) -HW)/CY1CIZ)) 
ST(IZ)-Q(IZ)/ (ROEXWEX(0 . 9XHO-HW) ) 
HCONCIZ)-ROEXWEXCPXST(IZ) 
RA(IZ)-ST(IZ)/(CF(IZ)XPRXX(-2./3.)) 
WRITE(8,19) Z(IZ),CF(IZ) 
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20 
12 


C 19 


27 
21 
22 
23 
24 


C 28 


WRITE(8,27) Z(IZ),ST(IZ) 
ИКІТЕ(8,21) 2(12),0(12) 
ИКІТЕ(8,22) 2(12),НСОМ(12) 
WRITE(8,23) Z(IZ),RA(IZ) 
WRITE(8,24) Z(IZ),CFB(IZ) 


WRITE(8,28) REZ(IZ),CFB(IZ) 


CONTINUE 
FORMAT(3X,E10. 
FORMAT(SX,E10. 
FORMAT(3X,E10. 
FORMAT(3X,E10. 
FORMAT(3X,E10. 
FORMAT(3X,E10. 
FORMAT (3X,E10. 
FORMAT (3X,E12. 
STOP 

END 


3,3X,E10 
3,3X,E10 
3,3X,E10 
3,3X,E10 
3,3X,E10 
3,3X,E10 
3,3X,E10 
5,3X,E12 


-3,3X,E10.3,3X,E10.3,3X,E10.3) 


.3) 
. 3) 
.3) 
. 3) 
.3) 
22) 
49) 
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APPENDIX F 
SATELITE PROGRAM OF PHOENICS USED IN TURBULENT FLOW ANALYSIS 


CSDIRECTIVEXXSATLIT 

C NZ722 NY-25 YN-10*GH 

C XFILE NAME: MODBFCST.FTN 

C XABSTRACT: SATELLITE MODEL MAIN PROGRAM. THIS VERSION IS 

C FOR USE WITH THE BODY-FITTED COORDINATE SCHEME (SUMMER 1984 
C VERSION) PROVIDED AS AN ATTACHMENT TO SPRING 1983 PHOENICS. 
C XDOCUMENTATION: PHOENICS INSTRUCTION MANUAL (SPRING 1983) 

C WITH BODY-FITTED COORDINATES INSTRUCTION SUPPLEMENT 

C (SUMMER 1984). 

C XAUXILIARY SUBROUTINES (TAPES, ETC.) ARE IN SATELLITE LIBRARY 
C SERVICEU, WHICH MUST BE INCLUDED IN LINK EDIT TO RUN. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 1 STARTS: 


CHAPTER 1 COMMON BLOCKS AND USER'S DATA. 


INCLUDE (CMNGUS) 

INCLUDE (CMNGRF) 

INCLUDE (GUSSEQ) 

COMMONZCPIZIPWRIT,IDUM(243) 

DIMENSION GDTAPE(3),DFAULT(4) 

DIMENSION ARRAY1(309),ARRAY2(194),ARRAY3(421) 
LOGICAL ARRAY1,LSPDA,WRT,RD,NAMLST 

INTEGER ARRAY2,XPLANE,YPLANE,ZPLANE 

INTEGER P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS,EP,H1,H2,H3,C1,C2, 
&C3,C4 

REAL NORTH, LOW . 

LOGICAL BFC 

EQUIVALENCE (ARRAV1(1),CARTES), (ARRAV2(1),NX) 
EQUIVALENCE (ARRAY3(1),SPARE1(1)),(M1,R1),(M2,R2) 
EQUIVALENCE (LSTRUN, INTGR(12)),(NAMLST,LOGIC(88) ) 
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EQUIVALENCE (LOGIC(20),BFC) 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 1 ENDS. 
CSDIRECTIVEXXCMNBF1$$ 
C THIS FILE CONTAINS SATELLITE COMMON BLOCKS FOR BFC'S 
С ‘Fl MUST BE DIMENSIONED TO GREATER THAN OR EQUAL TO 
C (NXtNY*17XNZ*24XNXXNY*GX(NX41)X(NY*1)*6XND). THE VALUE 
C OF THE DIMENSION MUST BE SET AS NBFC IN GROUP 6 OF SATLIT. 

COMMON’ FOB/F1 (5000) 
COMMON/ CIB/ND/CIC/KOORD 
COMMON/CID/KDBGG, KDBGMF, KDBGCD, KDBIND, KDBMFX, KDBCDT, KDBPCS, 
8 KDBGUV,KDBGPV 
COMMON/CIE/KDBGS,,KDBINS 
COMMON/CIF/IGEN/CIG/NCART 
THE FOLLOWING ARRAYS MUST BE EXACTLY DIMENSIONED FOR NXP1, 
NYP1 AND NZP1, BUT MAY BE OVER DIMENSIONED FOR ND. 
THE BFRAC ARRAYS MUST BE DIMENSIONED To ALLOW FOR SETTINGS 
IN SATLIT, THEY MAY BE OVER DIMENSIONED. 
COMMON/ CRA/XW(26, 23, 1)/CRB/XE(26, 23,1) 
8 /CRC/VS(2,23,1)/CRD/XN(2,23,1) 
8 /CRE/ZL(2,26, 1)/CRF/ZH(2,26,1) 
8 
8 


с с с с; 


/CRG/RCON/ CRH/DARCY/CRI/BXFRAC(99 )/CRJ/BYFRAC (99) 
/CRK/ BZFRAC (99 ) 
COMMON/CLA/STORSA(6) ,STORWD(6),STORP,STORPE,STORPN, 
8 STORPH,STORI1,STOR2,STORS,STOUNV, PRTBFC, STOCRN 
COMMON/CLC/BFPLOT 
LOGICAL STORP,STORPE,STORPN,STORPH,STOR1,STOR2,STORS, 
& STORSA, STORWD, STOUNV, PRTBFC, BFPLOT, STOCRN 

C END 

CXXXXAAXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 1 STARTS: 

C GRAFFIC ARRAYS DIMENSIONED AS NEEDED... 
COMMON/GRAF1/PHI1(1) /GRAF2/PHI2(1) 

C POROSITY & SPECIAL DATA ARRAYS DIMENSIONED AS NEEDED... 
DIMENSION PE(1,1,1),PN(1,1,1),PH(1,1,1),PC(1,1,1) 
DIMENSION LSPDA(1),ISPDA(1),RSPDA(1) 

C USER PLACES HIS VARIABLES, ARRAYS, EQUIVALENCES ETC. HERE. 
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EQUIVALENCE(RAIR,RE(21)), (GAMA,RE(22)), (GSWP,RE(23)) 
C USER PLACES HIS DATA STATEMENTS HERE. 

DATA NLSP,NISP,NRSP/1,1,1/ 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 1 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 2 STARTS: 


CHAPTER 2 SET CONSTANTS, AND ARRANGE FILE MANIPULATIONS. 


C PLEASE DO NOT ALTER, OR RE SET. ANY OF THE REMAINING 

C STATEMENTS OF THIS CHAPTER. 
DATA CELL,EAST,WEST,NORTH,SOUTH, HIGH, LOW, VOLUME/ 
& 0.,1.,2.,3.,4.,5.,6.,7. Z 
DATA P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS,KE,EP,H1,H2,H3,C1,C2, 
8C3,C4/1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20/ 
DATA FIXFLU,FIXVAL,ONLYMS,WALL/1.E-10,1.E10,0.0,-10.0/ 
DATA IPLANE,XPLANE, YPLANE, ZPLANE/0,1,2,3/ 
DATA WRT,RD,DFAULT/.TRUE.,.FALSE.,4HDEFA, 4HULT. , 4HDTA/ , 1HG^/ 
DATA GDTAPE/ 4HGUSI,4HE1.D,2HTA/ 
DATA NLDATA,NIDATA,NRDATA/309,194,421/ 
DATA NLCREG,NTCVRG/60,350/ 
DATA TITPP,TITC1,TITC2/3HRHO, GHMACH, АНТЕМР/ 
CALL TAPES(10,GDTAPE,3,1,4*NRDATA) 


TIR Pay — — um mm mmm READ DEFAULT FILE IF BLOCKDATA ABSENT 
IF(INTGR1(29).NE.10) GO TO 2 | 
CALL WRIT40(40HDATA ESTABLISHED IN BLOCK DATA. ) 
GO TO 3 


2 CALL DEFLT 
CD 2 CALL TAPES(1,DFAULT,4,2,4XNRDATA) 
CD CALL DATAIO(RD,1) 
CALL WRIT40(40HDATA TAKEN FROM DEFAULT.DTA ON GROUP A/C) 
3 CALL WRIT40(40HFILE MODSTL.FIN IS THE SATLIT USED. ) 
LOGIC (89)=.TRUE. 


CHAPTER 3 DEFINE DATA FOR NRUN RUNS. 
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CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 2 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 2 STARTS: 
C--- GROUP 41MULTI-RUNS : RUN(1-30)<.T.,29x.F.> 
C 

RUN(1)=.FALSE. 
C NOTE: ALL RUNS ARE DEACTIVATED AT THIS POINT - USER SHOULD 
G ==== SWITCH ON ONE ONLY OF RUNS 1-4 IN NEXT STATEMENT. 

RUN(1)=.TRUE. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 2 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXAXXXXXXX STANDARD SECTION 3 STARTS: 

DO 10 IRUN=1,30 
IF(.NOT.RUNCIRUN)) GO TO 10 
NRUNENRUNHI 
LSTRUN-IRUN 
10 CONTINUE 
DO 999 IRUN-1,LSTRUN 
IFC.NOT.RUNCIRUND)) GO TO 999 

INTGR(11) = IRUN 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 3 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 3 STARTS: 
С--- ALL INTEGER VARIABLES ARE DEFAULTED TO 0, AND REAL VARIABLES 
C TO 0.0, UNLESS OTHERWISE INDICATED. 
C E.G. BY VARIABLE<10>, OR <10.0> AS APPROPRIATE. 
C THE DEFAULT SETTINGS OF ALL LOGICAL VARIABLES ARE ALWAYS 
C INDICATED, E.G. VARIABLE<.T.>, OR VARIABLE<.F.>. 
C 


C--- ЕШИ 

=== = ае Annn nn Т сс «թ 
C--- GROUP 1. FLOW TYPE : 

C PARAB<.F.>,CARTES<.T.>,ONEPHS<.T.> 

gpg---- — 9 — M жЕ 25 ЕЕ. 
C--- GROUP 2. TRANSIENCE : 

C STEADY<.T.>,ATIME,LSTEP<1>,FSTEP<1> 

C TLASTS1.E102,TFRAC(1-30)£30X1.2 


C SERVICE SUBROUTINE FOR 'NT' POWER-LAW TIME STEPS: 
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CALL GRDPWR(0,NT,TLAST,POWER) 


GROUP 3. X-DIRECTION 

NX<1>, XULAST<1.0>,XFRAC(1-30) 

SERVICE SUBROUTINE FOR POWER-LAW GRID: 
CALL GRDPWR(1,NX,XULAST,POWER) 


GROUP 4. Y-DIRECTION : 
NY<1>,YVLAST<1.0>,YFRAC(1-30),RINNER,SNALFA 
SERVICE SUBROUTINE FOR POWER-LAW GRID: 

CALL GRDPWR(2,NY,YVLAST,POWER) 

NY=25 


GROUP 5. Z-DIRECTION : 
NZ«X1»,ZWLAST«1.0»,ZFRAC(1-30) 

SERVICE SUBROUTINE FOR POWER-LAW GRID: 
CALL GRDPWR(3,NZ,ZWLAST, POWER) 


 NZ-22 


GROUP 6. MOVING GRID OR DISTORTED (BODY-FITTED) GRID 
--- MOVING GRID 
MGRID,I12W1,12W2,AZW2,BZW2,CZW2,PINT,ZW2MIT 


===" BODYSEITTED GRID -== 
BFC<.T.>,IGEN<1>,ND<1>,NBFC<5000>,KOORD,RCON 
ВХЕКАС(1-МХ) < 1.0, МХМ1ХО.0> 
ВУЕКАС(1-КУ) < 1.0, МУМ1ХО0.0> 
BZFRAC(1-NZ)<1.0,NZM1*0.0> 
SERVICE SUBROUTINE FOR SUB-DOMAIN SPECIFICATION (FOR IGEN=1 
ONLY): 

CALL DOMAINCID, IXF,IXL,IYF,IYL,IZF,IZL) 
XEC1-NYP1,1-NZP1,1-ND)<(NYP1¥NZP1¥*ND)¥1.0>, 
XWC1-NYP1,1-NZP1,1-ND), 

XN(I-NXPI,l-NZPI, l-NDIXI(NXPIXNZPIXND)X1.02, 
YSC1-NXP1, 1-NZP1, 1-ND), 
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ZH(1-NXP1,1-NYP1,1-ND)<(NXP1xNYP1xND)x1.0>, 
ZL(1-NXP1,1-NYP1,1-ND),STORSA( 1-6) <6%.F.>,STORWD(1-6)<6%.F.>, 
STORP<.F.>,STORPE<.F.>,STORPN<.F.>,STORPH<.F.>,STOUNV<.F.>, 
PRTBFC<.F.>,DARCY,BFPLOT<.F.> 
CYCLIC BOUNDARY CONDITIONS ARE DEFAULTED INACTIVE ; 
TO ACTIVATE THEM AT SELECTED IZ SLABS USE SERVICE SUBROUTINE: 
CALL XCYIZ(IZ, .TRUE. ) 
SERVICE SUBROUTINE TO DEACTIVATE CURVATURE TERMS IN U, V 
AND W EQUATIONS ASSOCIATED WITH CURVATURE OF Ix, IV, IZ 
GRID LINES RESPECTIVELV: 
CALL UCURVE(IZ, .FALSE. ) 
CALL VCURVE(IZ, .FALSE. ) 
CALL WCURVE(IZ, .FALSE. ) 
NCART<1> 
XWARNINGS| I 1111 


B) 
C) 


D) 


E) 


xNOTES 


A) 


WHEN USING BFCS STOVAR(H3), STOVAR(C4), STOVAR(21) ARE 
AVAILABLE ONLY FOR STORING NON-ORTHOGONAL VELOCITY 
COMPONENTS. 

MULTI-RUNS ARE NOT ALLOWED WITH BFC OPTION. 

MOVING GRID, TWO-PHASE AND PARABOLIC OPTIONS ARE NOT 
AVAILABLE WITH BFC OPTION. 

KE-EP TURBULENCE MODEL SHOULD BE USED WITH BFC'S ONLY 
WHEN THE MAIN FLOW IS IN THE IZ DIRECTION. 

BUILT-IN GRAVITY TERMS DO NOT TAKE ACCOUNT OF BFC'S. 


THE STANDARD VELOCITY-FIELD PRINTOUT FOR THE 

VELOCITY RESOLUTES IS ACTIVATED IN THE USUAL 

WAY. AN ADDITIONAL OPTION EXISTS FOR PRINTING THE 

CARTESIAN VELOCITY-COMPONENTS WHICH MAY BE 

ACTIVATED BY SETTING THE FOLLOWING LOGICALS: 
STOVAR(U2)=.T. FOR U-COMPONENT (CARTESIAN) 
STOVAR(V2)=.T. FOR V-COMPONENT (CARTESIAN) 
STOVAR(W2)=.T. FOR W-COMPONENT (CARTESIAN) 
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SIMILARLY PRINTOUT OF NON-ORTHOGONAL VELOCITY 

COMPONENTS MAY BE ACTIVATED AS FOLLOWS: 
STOVAR(C4)=.T. FOR U-COMPONENT (NON-ORTHOG) 
STOVAR(H3)=.T. FOR V-COMPONENT (NON-ORTHOG) 
STOVAR(21)=.T. FOR W-COMPONENT (NON-ORTHOG) 

B) BFC (TO ACTIVATE THE BFC OPTION), IGEN (THE CODE FOR METHOD 
OF GRID SPECIFICATION), ND (NUMBER OF SUB-DOMAINS) AND 
NBFC (THE F1 ARRAY DIMENSION), MUST BE SET BEFORE 
"STANDARD BFC SECTION 2". ====== 
ALL OTHER BFC DATA MUST BE SET AFTER "STANDARD BFC 
SECTION 2. ===== 

C) NXP1, NYP1, NZP1 STORE NX+1, NY+1, NZ+1; THESE ARE 
AVAILABLE TO USER AFTER STANDARD BFC SECTION 2. 

D) FOR IGEN=1 USE BXFRAC,BYFRAC & BZFRAC IN PLACE OF 
XFRAC,YFRAC & ZFRAC. 


с 62 OQ (0 сос сос 00 еу առ Су © 621203 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD BFC SECTION 1 STARTS: 
C DEFAULT SETTINGS: 
NCART=10 
BFC=.TRUE. 
IGEN=1 
ND=1 
NBFC=5000 ` 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD BFC SECTION 1 ENDS.: 
C xUSER SETS BFC, IGEN, ND AND NBFC HERE: 
C 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD BFC SECTION 2 STARTS: 
CALL SB4I (NXP1,NX+1,NYP1,NY+1,NZP1,NZ+1,1,0) 
IF(BFC) CALL BFCDFT(NBFC,XE,XW,YN,YS,ZH,ZL,ND,NXP1,NYP1, 
& NZP1,NZ) 
СХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХХ STANDARD BFC SECTION 2 ENDS. 
C XUSER SETS ALL OTHER BFC VARIABLES HERE: 
C XUSING NONIFORM GRID 1-8 
GH-6.4E-3 
GL-95.2E-3 


129 


64 


65 


66 


67 


68 


69 


62 


63 


663 


664 
61 


GTL-1.24XxGL 

GBETA=4. 
GBETA-GBETAX3.1415927/180 
GTAB-TAN(GBETA) 

DELMAX-2.E-3 

GNBL=5. 

GPWR=2. 

DO 64 IY=1,5 

BYFRAC (IY )=( FLOAT (IY) /GNBL) ¥*GPWR*DELMAX/ (10. ¥GH) 
DEL=(1.-DELMAX/ (10. *GH) )/ (FLOAT (NY )-GNBL) 
DO 65 IY=6,NY 

BYFRAC (LY) =BYFRAC(IY-1 )+DEL 
BZFRAC(1)242.373E-3 

DO 66 IZ-2,8 
BZFRAC(IZ)242.373E-3*BZFRAC(IZ-1) 
DO 67 12-9,14 
BZFRAC(IZ)=84.75E-3+BZFRAC(IZ-1) 
DO 68 IZ=15,16 
BZFRAC(IZ)=42.373E-3+BZFRAC(IZ-1) 
DO 69 IZ=17,22 
BZFRAC(IZ)=11.295E-3+BZFRAC(IZ-1) 
CALL DOMAIN(1,1,NX,1,NY,1,NZ) 

DO 61 IX=1,NXP1 

DO 62 IY=1,NYP1 

ZL(IX,IV,1)20.0 

ZH(IX,IV,1)-GTL 

DO 63 IZ=1,NZP1 

XN(IX,IZ, 1)710XGH 
ҮЅ(ІХ,12,1)=0.0 

DO 663 IZ=6,20 

YS(IX,1Z, 1)=(BZFRAC(1IZ-1)-BZFRAC(5) )XGTABXGTL 
DO 664 IIZ=21,22 
YSCIX,IIZ,]DEYSQEO 20 0D 

CONTINUE 

STORSACIFIX(LOW) )=.TRUE. 
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STORSA(IFIX(HIGH))=.TRUE. 
STORSA(IFIX(SOUTH))=.TRUE. 
STORWD(IFIX(SOUTH))=.TRUE. 
PRTBFC=.TRUE. 


СОАК DARCY=1.E10 


GROUP 7. BLOCKAGE: BLOCK<.F.>,IPLANE, IPWRIT 

XSET CONSTANT POROSITIES OVER SUB-DOMAINS USING: 

CALL CONPOR(IR, TYPE, VALUE, IXF,IXL,IYF,IYL,IZF,IZL), WHERE: 
IR=RUN SECTION NUMBER, E.G. 1 FOR RUN1 SECTION; 'TYPE'= EAST, 
WEST, NORTH, SOUTH, HIGH, LOW & CELL. 'VALUE'=WANTED POROSITY 
OVER REGION IXF,...IZL. 

XDIMENSION ARRAYS PE(NX,NY,NZ), PN(NX,NY,NZ), PH(ONX,NY,NZ), & 
PC(NX,NY,NZ) ABOVE. 

XFOR FULLY-BLOCKED CELLS (IE. 'VALUE'- 0.0) USER NEED SET ONLY 
THE 'CELL' POROSITY (TO ZERO), AS CELL-FACE AREAS ARE THEN 
AUTOMATICALLY ZEROED. 

XFOR SATELLITE PRINTOUT OF ALL POROSITIES IN DOMAIN, 'IPLANE'- 
XPLANE YPLANE OR ZPLANE, FOR DESIRED CROSS-SECTION DIRECTION. 

XFOR EACH 'TYPE' A MAXIMUM OF 10 CALLS TO CONPOR IS ALLOWED, 
BUT IF REQUIREMENTS EXCEED THIS PROVISION SET BLOCK-.T. & 
IPWRIT--1, AND SET POROSITY ARRAYS EXPLICITLY HERE AS WANTED. 
IN THIS CASE, THE USER MUS T SET AL L' ELEMENTS OF 
ARRAYS PE, PN, PH, PC (MANY MAY BE 0.0 OR 1.0). HE MAY USE: 
CALL CR(PARRAV, VALUE, IXF, IXL, IVF, IVL, IZF, IZL,NX,NV,NZ) 

ANY NUMBER OF TIMES, TO SET 'PARRAY' (= PE, ETC.) TO 
'VALUE' OVER RANGE IXF TO IXL, IVF TO IVL, IZF TO IZL. 

XCONPOR MUST NOT BE USED IN CONJUNCTION WITH EXPLICIT 
SETTINGS OF THE ARRAYS (INCLUDING SETTINGS VIA CR). 

GROUP 8.DEPENDENT VARIABLES TO BE SOLVED FOR OR STORED 
SOLVAR(1-25)<25X.F.>, STOVAR(1-25)<25%.F.>,CONC1(1-4)<4x.T.> 
USE FOLLOWING NAMED INTEGERS FOR ARRAY ELEMENTS 1-20: 
P1,PP,U1,U2,V1,V2,W1,W2,M1,M2,RS,KE,EP,H1,H2,H3,C1,C2,C3,C4. 
SOLVAR(P1)=.TRUE. 
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SOLVAR(PP)=.TRUE. 
SOLVAR(V1)=.TRUE. 
SOLVAR(W1)=.TRUE. 
SOLVAR(H1)=.TRUE. 
SOLVAR(KE)=.TRUE. 
SOLVAR(EP)=.TRUE. 
STOVAR(V2)=.TRUE. 
STOVAR(W2)=.TRUE. 
STOVAR(C1)=.TRUE. 
STOVAR(C2)=.TRUE. 


GROUP 9. VARIABLE LABELS 
TITLE(1-25)<2HP1,2HPP, 2HU1,2HU2, 2HV1,2HV2,2HW1,2HW2,2HR1, 
2HR2,2HRS, 2HKE, 2HEP,2HH1,2HH2,2HHS,2HC1,2HC2, 
2HC3,2HC4,2HRX,2HRY,2HRZ, 2Xx4Hxxxx» 

TITLE(C1)-4HMACH 

TITLE(C2)='TEMP' 

TITLE CPP )="RHO1' 


GROUP 10 PROPERTIES: 

IRHO1<1>, IRHO2<1>,RHO1<1.0>,RHO2<1.0>, 
АЕН01<1.0>,ВЕН01<1.0>,СЕН01<1.0> 
ІЕМ/1<1>,ЕМ01<1.0>,ЕМО,АМ<1.Е-10>. 
IHSAT,HISAT,H2SAT,PSATEX«1.0» 
SIGMA(1-25)<1.0,2.0,1.,1.E10,1.,1.E10,1.,1.E10, 
4X1.0,1.314,1.0, 1.E10, 10x1.0» 

ІРН01-4 

PTOT=55.E5 

TOT=555.55 

RAIR=287. 

GAMA=1.35 

CP=RAIR/ (1-1/GAMA) 

TW=323. 

HWALL-TWXCP 

HTOT-CPXTOT 
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RHTOT-PTOT/ TOT/RAIR 
LOGIC(87)=.TRUE. 
ARHOT-RHTOT/ PTOTXX(1/GAMA) 
ВКНО1<1./ САМА 

C TURBULENT FLOW 
ТЕМЏ1 “2 
EMU1=4.E-5 
EMULAM=1.E-5 
SIGMA(24)=0.7 
SIGMA(14)=0.9 


НЕ жо J ee 
C--- GROUP 11 INTER-PHASE TRANSFER PROCESSES 
Շ ICFIP,CFIPS,IMDOT,CMDOT,CA1I<1.E6>,CA21I<1.E6> 
jA II Ñ... 
C--- GROUP 12 SPECIAL SOURCES 
C ISPCSO(1-25),AGRAVX, AGRAVY , AGRAVZ , ABUOY , HREF 
2. 00222222. ------------------- 
С--- GROUP 13 INITIAL FIELDS 
C FIINIT(1-25)«25Xx1.E-10» 
C MACH NO. OF FREE STREAM 

GMACH-3.2 

A=1+(GAMA-1)Z2xGMACHxx2 

TE=TOTZA 


RHE=RHTOTZAxx(1⁄(GAMA-1)) 
PSTAT-PTOT/AXX(GAMA/ (GAMA-1)) 
RHO 1=ARHO1*PSTAT*®*BRHO1 
SONIC-SQRT(CGAMAXRAIRXTE) 
WIN-SONICXGMACH 
RKEIN-0.0001XxWINXXx2 
EPIN7-0.16xRKEINXX1.5/(2.0XxGH) 
FIINIT(W1)-ZWIN 
FIINIT(P1)-PSTAT 
FIINITCH1)=HTOT 
FIINIT (KE )=RKEIN 
FIINITCEP)=EPIN 
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CDAR 


XN.B. ALL 10 REGIONS ARE DEFAULTED .TRUE.. 


GROUP 14 BOUNDARY/INTERNAL CONDITIONS 

ILOOP1, ILOOPN, XCYCLE<.F.>,PBAR, REGION(1-10)<10%.T.> 

THE USER SHOULD 
SET REGION(I)=.FALSE. FOR UNUSED REGIONS 'I'. 
DO 14 I=1,10 


REGION(I)-.FALSE. 


GROUP 15 TO 24; REGIONS 1 TO 10 

ONLY THOSE REGIONS ARE ACTIVE WHICH ARE SPECIFIED BY THE 
USER, PREFERABLY BY WAY OF:- 

CALL PLACE( IREGN, TYPE, IXF, IXL, IYF, IYL, IZF, IZL) & 
CALL COVALCIREGN, VARBLE, COEFF, VALUE) 

CALL PLACE(1,LOW,1,NX,1,NY,1,1) 

CALL COVAL(1,M1,FIXFLU,WINXRHE) 

CALL COVAL(1,M1,1.E-20,1.E+20*XWINXRHE ) 
GCM-2XGAMA/WIN/ CGAMA- 1) 

GVM-PTOTXRHE/RHTOT 

CALL COVAL(1,M1,GCM, GVM) 

CALL COVAL(1,W1,ONLYMS,WIN) 

CALL COVAL(1,H1,ONLYMS,HTOT) 

CALL COVAL(1,KE,ONLYMS, RKEIN) 

CALL COVAL(1,EP,ONLYMS,EPIN) 

CALL PLACE(2,HIGH, 1, NX, 1, NY, NZ, N2) 

CALL COVAL(2,M1,FIXVAL, PSTATX0. ) 

CALL COVAL(2,M1,1000*WINXRHE/PSTAT, PSTAT) 


Շ WALL ALONG THE VANE 12(6:22) 


GCM=EMU1/(. 5XBYFRAC(1)%*10.%*GH) 
CALL PLACE(3,SOUTH,1,NX,1,1,6,22) 
CALL COVAL(3,W1,WALL, 0.) 

CALL COVAL(3,H1,WALL, HWALL) 

CALL COVAL(3,KE,WALL, 0.) 

CALL COVAL(3,EP,WALL,0.) 
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C GROSTA<.F.>,NAMLST<.F.> 
C xNAMLST ACTIVATES NAMELIST IN GROUND. 
GROSTA=.TRUE. 


յՍ»9շ.9..ծ-.ջԽ...-......---...........- 
C--- GROUP 26 SOLUTION TYPE AND RELATED PARAMETERS 
C WHOLEP<.F.>,SUBPST<.F.>,DONACC<.F.> 

WHOLEP=.TRUE. 
A __ J Du. . 
C--- GROUP 27 SWEEP AND ITERATION NUMBERS 
c FSWEEP<1>,LSWEEP<1>,LITHYD<1>,LITC<1>,LITKE<1>,LITH<1>, 
C IB 1-25)«9x1, -17 15x15 
C IVELF<1>,NVEL<1>, IVELL<10000>, 
C IKEF<1>,NKE<1>,IKEL<10000>, 
C IENTF<1>,NENT<1>, IENTL<10000>, 
C ICNCF<1>,NCNC<1>, ICNCL<10000>, 
e IRHO1F<1>,NRH01<1>,IRHO1L<10000>, 
C IRHO2F<1>,NRHO2<1>, IRHO2L<10000> 

LSWEEP=100 

GSWP=LSWEEP 


CR FSWEEP=200 
LITER( PP) =20 
LITER(V1)=2 
LITER(W1)=5 


LITER(KE)-2 
LITERCEP)=2 
C LITHYD=2 
eee 
C--- GROUP 28 TERMINATION CRITERIA : 
C ENDIT(1-25)<9x1.E-10,0.5,15x1.E-10> 
ENDIT(1)=1.E-5 
արտ Լ ԴՒ.--2--1111»5»1ՂՖթ59Եֆ......-------- 7 ջր et 
C--- GROUP 29 RELAXATION 
C RLXP<1 .>, RLXPXY<1 .>,RLXPZ<1 .>,RLXRHO<1 .>,RLXMDT<1.>, 
C DTFALS(3-25)<23x1.E10> 


DTFALS(W1)=1.E-5 
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DTFALS(V1)=1.E-3 
DTFALS(KE)=1.E-2 
DTFALS(EP)=1.E-4 
RLXP=.2 


«но u—D unD CHD ако s G Q ае «> «ло сан сно еко G «к «кы «ко км. чи СЖ шыр чи) s GÑ Q (UND ст а = առ աթ աթ աթ տառ տաթ առ ա» աթ աթ տ» աթ աթ առ տո ար օա ա 


GROUP 30 LIMITS 

VELMAX<1.E10>,VELMIN<-1.E10>,RHOMAX<1.E10>,RHOMIN<1.E-10>, 
ТКЕМАХ<1.Е10>,ТКЕМІМ<1.Е-10>,ЕМОМАХ<1.Е10>,ЕМОМІМ<1.Е-10>, 
EPSMAX<1.E10>,EPSMIN<1.E-10>,AMDTMX<1 .E10>,AMDTMN<~-1.E10> 


GROUP 31 SLOWING DEVICES : SLORHO<1.>,SLOEMU<1.> 
SLORHO=.5 


GROUP 32 PRINT-OUT OF VARIABLES 
PRINT(1-25)<.T.,.F.,23%.T.>,SUBWGR<.F.> 
PRINT(C1)=.TRUE. 

PRINT (C2)=. TRUE. 

PRINT(PP)=.TRUE. 


GROUP 33 MONITOR PRINT-OUT : 

IXMON<1>, TYMON<1>, IZMON<1>,NPRMON<1>,NPRMNT<1> 
NPRMON=5 

IYMON=2 

IZMON=5 


GROUP 34 FIELD PRINT-OUT CONTROL : 
NPRINT<100>,NTPRIN<100>,NXPRIN<1>,NYPRIN<1>,NZPRIN<1>, 
IZPRF<1>,ISTPRF<1>, IZPRL<10000>,ISTPRL<10000> 
NUMCLS<10>,KOUTPT 

NPRINT=LSWEEP 

NUMCLS=5 


GROUP 35 TABLE CONTROL : 
TABLES< .F.>,NTABLE,NTABVR, LINTAB,NPRTAB,NMON, 
ITAB(1-8),MTABVR(1-8) 
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с с с с с с) 


GROUP 36-38 ARE NOT DOCUMENTED IN THE INSTRUCTION 
MANUAL AND ARE INTENDED FOR MAINTENANCE PURPOSES ONLY 
GROUP 36 DEBUG PRINT-OUT SLAB AND TIME-STEP : 
IZPR1<1>,IZPR2<1>, ISTPR1<1>, ISTPR2<1> 


GROUP 37 DEBUG SWEEP AND SUBROUTINES 
KEMU,KMAIN,KINDEX,KGEOM,KINPUT,KSODAT,KCOMPF,KSORCE, 
KSOLV1,KSOLV2,KSOLV3,KCOMPP,KADJST,KFLUX, KSHIFT,KDIF, 
KCOMPU, KCOMPV, KCOMPW, KCOMPR, KWALL, KDBRHOS-12,KDBEXP, KDBMDT 
KDBGEN 


GROUP 38 MONITOR,TEST,AND FLAG 
MONITR<.F.>,FLAG<.F.>,TEST<.T.>,KFLAG<1> 
END OF MAINTENANCE-ONLY SECTION 


GROUP 39 ERROR AND RESIDUAL PRINT-OUT : 
IERRP<1000>,RESREF(1,3-24)<25%1.>,RESMAP<.F.>, 
RESID (1-25)<2%.F.,23%.T.>,KOUTPT 
RESREF (1 ) =WIN*RHE 
RESREF (7) -WINXRESREF(1) 
RESREF(5)-WINXRESREF(1)X0.1 
RESREFCH1 ) =HTOTXRESREF (1 ) 

RESREF (KE ) =RKEINXRESREF (1 ) 

RESREF CEP ) =EPINXRESREF (1) 
IERRP=LSWEEP/ 10 

KOUTPT=LSWEEP/ 10 


GROUP 40 SPECIAL DATA : LOGIC(1..10),INTGR(1..10),RE(21..30), 
NLSP<1>,NISP<1>,NRSP<1>,SPDATA<.F.>,LSPDA(1),ISPDA(1),RSPDA(1) 
USE FIRST 10 ELEMENTS OF ARRAYS LOGIC & INTGR AND 21ST 

TO 30TH OF ARRAY RE FOR TRANSFERRING SPECIAL DATA FROM 
SATELLITE TO GROUND, BUT IF REQUIREMENTS EXCEED THIS 
PROVISION SET SPDATA = .T., AND DIMENSION ARRAYS LSPDA, 

ISPDA, RSPDA ABOVE AND IN GROUND AS NEEDED, AND SET HERE 
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C--- GROUP 42 RESTARTS AND DUMPS : SAVEM<.F.>,RESTRT<.F.>,KINPUT 
SAVEM=.TRUE. 
BFPLOT=.TRUE. 
C RESTRT=.TRUE. 
ор A 
С-------<----------: D К ү 
C--- GROUP 43 GRAFFIC 
C GRAPHS<.F.>,ORTHOG<.T.>,ANTSYM,NPRT<1>, ITITL<5X4HxxXxx> 
C--- FOR A GRAFFIC RUN, DIMENSION PHI1 & PHI2 AS FOLLOWS: 


С PHI1(NXXNYXNZXNM) 

C PHI2((NX£2)X(NY42)X(NZ42)X(NM*IBLK)) , WHERE 
C NM=NO. OF VARIABLES STORED + DENSITY(-IES) 

С IBLK=0 IF BLOCK=.FALSE.,=4 IF A 3D RUN, 

С =3 IF А 2D.YZ RUN. 


IF(IRUN.EQ.1) GO TO 900 
900 CONTINUE 
С--- ALL RUNS 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 3 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 4 STARIS: 


C WRITE GENERAL DATA ON TO THE GUSIE1.DTA TAPE, ETC... 
IF(SPDATA) CALL WRTSPC(LSPDA,NLSP, ISPDA,NISP,RSPDA,NRSP) 
IF(BLOCK) CALL WRTPOR(PE,PN,PH,PC,NX,NX,NZ, IPLANE) 
IF(BFC) CALL WRTBFC(14, NBFC, XE, XW, YN, YS, ZH, ZL, 
&ND,NX*1,NY*1,NZ*1,NZ,PRTBFC) 


C OLD PRACTICES RETAINED FOR REFERENCE: 
IF(SPDATA) CALL SPCDATCIRUN) 
C IF(BLOCK) CALL PORDAT(IRUN) 


IF(GRAPHS) CALL SORT(IRUN) 
IF(RESTRT) GO TO 902 
DO 901 INDVAR=1,25 
IFCIFIXCFIINITCINDVAR)+0.1).NE.10101) GO TO 901 
CALL FLDDAT(IRUN) 
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901 
902 


299 


GO TO 902 
CONTINUE 
CALL DATAIOCWRT, 10) 
IF(MONITR) CALL DATAIO(WRT,-6) 

CONTINUE 
STOP 
END 

IGEN=1 SO BFCXYZ NOT REQUIRED. 
COMMENT OUT BOTH VERSIONS. 


SUBROUTINE BFCXYZ (NXP1,NYP1,NZP1) 
RETURN 
END 
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APPENDIX G 
GROUND PROGRAM OF PHOENICS USED IN TURBULENT FLOW ANALYSIS 


CSDIRECTIVEXXMAIN 

C GROUND PROGRAM OF PHOENICS USED IN TURBULENT FLOW ANALYSIS 

Շ NZ=22 NY=25 LAMINAR FLOW 

С xFILE NAME: MODBFCGD.FTN 

C xINCLUDE DED SUBROUTINES: THE MODELS OF MAIN, GROUND & STRIDE. 
G xDOCUMENTATION: PHOENICS INSTRUCTION MANUAL (SPRING 1983) 

C WITH BODY-FITTED COORDINATES INSTRUCTION SUPPLEMENT 

Շ (SUMMER 1984). 

C xSATELLITE FILE NAME: MODSTL.FTN 

COMMON/ ISHIFT/III(57),NFMAX 


C SET F-ARRAY DIMENSION AS NEEDED, & SET NFMAX ACCORDINGLY. 
C FOR BFC'S ALSO -SET F1-ARRAY DIMENSION AS NEEDED ;AND SET 
C NF1MAX ACCORDINGLY. 

COMMON/ FOB/F1(10000) 

COMMON/ NFOB/NFIMAX 


COMMON F(25000) 
NFMAX=25000 
NF 1MAX=10000 
CALL MAIN! 
STOP 
END 
CSDIRECTIVEXXGROUND 
SUBROUTINE GROUND(IRN,ICHAP,ISTP,ISWP,IZED, INDVAR) 
INCLUDE (CMNGUS) 
INCLUDE (GUSSEQ) 
C INCLUDE NMLIST 
LOGICAL BFC 
EQUIVALENCE (LOGIC(20),BFC) 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 1 STARTS: 
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C+++++MEANING OF SUBROUTINE ARGUMENTS: 


C 
C 


IRN=RUN NUMBER; ICHAP=CHAPTER CALLED; ISTP=TIME STEP; 
ISWP=SOLUTION SWEEP; IZED=Z-SLAB; INDVAR: SEE CHAPTERS BELOW. 


C+++++USER-INTRODUCED VARIABLES & ARRAYS: 


са 6: Са са (2 са атс 


TO AVOID CONFLICT WITH VARIABLE NAMES USED IN COMMON, ALL 
VARIABLES INTRODUCED BY THE USER SHOULD HAVE NAMES STARTING 
WITH 'G' IF REAL, 'J' IF INTEGER, AND 'G' OR 'J' IF LOGICAL. 
THUS GDZ(IZ) MIGHT BE A Z-INTERVAL ARRAY; 

GW1ICIY,IX) A 2-D ARRAY FOR AXIAL VELOCITY; ETC. 
USER-GENERATED SUBROUTINES SHOULD BE NAMED CORRESPONDINGLY, EG 
SUBROUTINE GVISC(GTEMP,GCNC,GVSC), FOR COMPUTING VISCOSITY 
FROM CONCENTRATION & TEMPERATURE. 


C+++++GROUND-TO-EARTH CONNECTING SUBROUTINES : 


C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 
C 


xUSE GET(NAME,GARRAY,NY,NX) TO PUT VALUES OF VARIABLE NAMED 
'NAME' INTO ARRAV 'GARRAV' DIMENSIONED GARRAV(NX,NX). 
XUSE SET(NAME,IXF,IXL,IYF,IYL,GARRAY,NY,NX) TO SET VARIABLE 
'NAME' TO GARRAY(IY,IX) OVER THE REGION: IXF-IXL & IYF-IYL. 
XUSE PRNSLB(NAME) TO PRINT VARIABLE 'NAME' OVER X-Y PLANE. 
«ՍՏԵ ADD(NAME,IXF,IXL,IYF,IYL,TYPE,CM,VM, CVAR, VVAR, NY, NX) 
TO ADD SOURCE TO VARIABLE NAMED 'NAME' (SEE CHAPTER 5). 
XUSE READIZ(IZED) IN CHAPTERS 1, 2, 8, & 9 TO ACCESS P1,...DM 
& VOL,...AHDZ. (SEE FOOTNOTE TO LEGALITY TABLE) 
XUSE GETID(NAME,GARRAY,NDIM) TO PUT VARIABLE NAMED "МАМЕ! ІМ 
ONE-D ARRAY 'GARRAY' DIMENSIONED NDIM, THUS: 
CALL GETID(NAME,GNX,NX) FOR XG,...DXG & DIMENSION GNX(NX); 
CALL GET1D(NAME ,GNY, NY) FOR YG,...RV & DIMENSION GNY(NY); 
CALL GETID(NAME,GNZ,NZ) FOR ZG,...WGRID & DIMENSION GNZ(NZ). 


C+++++LEGALITY TABLE FOR USE OF EARTH-CONNECTING SUBROUTINES: 


а са (52 (3 (3 do (3 


ENTRIES IN TABLE GIVE CHAPTERS IN WHICH SUBROUTINES CAN BE 

USED FOR VARIABLES IN LEFT-HAND COLUMN. (SUBROUTINE 

STRIDE IS REGARDED AS BEING IN CHAPTER 3) 

: VARIABLE:: GET & : SET : ADD : READIZ : GETID 
PRNSLB 
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С :P1 ~ RZ ALL 6 & 7 5 1,2,8,9: МОМЕ. 
С :PIO - RZH::3-7, 10-16: 3 NONE NONE NONE 
С :VOL -AHDZ:: ճել 3 NONE : 1,2,8,9: NONE 
C :DIDP NONE 10 NONE NONE NONE 
C : D2DP NONE 11 NONE NONE NONE 
C :MUT,MUIH :: 5,13-16 ШЕ NONE NONE NONE 
С :EXCO(L,H):: МОМЕ 13 NONE NONE NONE 
C : CFP 5 14 NONE NONE NONE 
C : MDT 5 15 NONE NONE NONE 
б ‘HST1,HST2:: 5 & 15 16 NONE NONE ։ NONE 
C :XG -WGRID:: МОМЕ : NONE : NONE : NONE : ALL 
G 
© NOTES ON ABOVE TABLE: 

C — XIN CHAPTERS 1, 2, 8, & 9 VARIABLES P1...DM & GEOMETRY 

C VOL...AHDZ CAN BE ACCESSED BUT ONLY IN CONJUNCTION WITH 
C USE OF READIZ, THUS: 

C DO 1 IZED=1,NZ 

G CALL READIZ(IZED) 

C 1 CALL GET(... AS REQUIRED..) 

C ^ XGEOMETRY ACCESSED BY READIZ IS THAT AT INITIAL TIME. 

C — xDIDP & D2DP ONLY ACCESSIBLE IN UNSTEADY FLOWS. 


C+++++GROUND SERVICE SUBROUTINES: 

XUSE CONTUR(NAME, IPLANE, ILOC,NINT,11,12,J1,J2,GARRAXV,NDIM) FOR 
LINE-PRINTER PLOTS OF CONTOURS. 'NAME' - Џ1,.. .СА; 

'IPLANE'7- XPLANE, YPLANE, OR ZPLANE; ILOC SETS IX, IY, OR 

IZ LOCATION OF IPLANE; I!, I2, 41, % J2 SET FIRST 8 LAST 
CELLS IN HORIZ. & VERT. ON PLOT; GARRAY IS 1-D WORKING ARRAY 
OF DIMENSION NXXNY, NXXNZ, OR NYXNZ DICTATED BY IPLANE; & 
NDIM SETS VALUE OF DIMENSION OF GARRAY. 

XUSE FLD2DA(TITLE,GARRAY,NY,NX) TO PRINT ANY ARRAY DIMENSIONED 
GARRAY(NY,NX); SET 'TITLE' TO REQUIRED NAME ( 4 HOLLERITH 
CHARACTERS ONLY). 

XUSE FLDSDA(TITLE,GARRAX,NX,NX,NZ, IPLANE,ILOC) TO PRINT ANY 
ARRAY DIMENSIONED GARRAY(NX,NY,NZ) IN PLANE SPECIFIED BY 
"IPLANE' & 'ILOC' AS FOR CONTUR ABOVE; SET 'TITLE' AS FOR 


сос осо о C11 СО: су с сес с суо 
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FLD2DA. 

VARIABLE NAMES FOR USE IN GROUND: 
COMMONZTYPEZCELL,EAST,WEST,NORTH,SOUTH,HIGH,LOW,VOLUME,WALL 
COMMON/VAR/P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS, 
4.12,EP,H1,H2,H3,C1,C2,C3,C4,RX,RY,RZ,S1,S2 
COMMON/VAROLD/P10,PPO,U10,U20,V10,V20,W10,W20,R10,R20,RSO, 
&KEO,EPO,H10,H20,H30,C10,C20,C30,C40,RX0,RY0,RZ0,S10,S20 
COMMON/ VARLOW/P1L, PPL,U1L,U2L,V1L,V2L,W1L,W2L,R1L,R2L,RSL> 
&KEL,EPL,H1L,H2L,H3L,C1L,C2L,C3L,C4L,RXL,RYL,RZL,S1L,S2L 
COMMON/VARHI/P1H, PPH, U1H, U2H, V1H, V2H, W1H, W2H, RTH, R2H, RSH, 
&KEH , EPH, H1H,H2H,H3H,C1H,C2H,C3H,C4H,RXH,RYH,RZH,S1H,S2H 
COMMON/ GMTRY/VOL, VOLO, AEAST , ANORTH , AHIGH, AEDX, ANDY , AHDZ 
COMMON’ PROP/D1,D2,D1DP,D2DP,MU1,MU1LAM,EXCO,CFP,MDT,HST1,HST2 
COMMON’ PRPOLD/D10,D20 

COMMON’ PRPLOW/D1L, D2L,EXCOL 
COMMON/PRPHI/D1H,D2H,MU1H,EXCOH 
COMMON/VARNX/XG, XU, DXU, DXG 
COMMON/VARNY/YG , YV , DYV, DYG, R, RV 
COMMON/VARNZ/ ZG , ZW1 , DZW, DZG , WGRID 
COMMON/GDMSCI^XPLANE, YPLANE, ZPLANE , ITNO 
COMMON/GDMSCL/LSLAB , MSLAB , HSLAB , LAMMU 

REAL NORTH, LOW f 

INTEGER P1,PP,U1,U2,V1,V2,W1,W2,R1,R2,RS; 
&EP,H1,H2,H3,C1,C2,C3,C4,RX,RY,RZ,S1,S2 

INTEGER P10, PPO,U10,U20,V10,V20,W10,W20,R10,R20,RSO, 
8EPO,H10,H20,H30,C10,C20,C30,C40,RX0,RVO,RZO,S10,S20 
INTEGER  P1L,PPL,U1L,U2L,V1L,V2L,W1L,W2L,R1L,R2L,RSL, 
QEPL, HIL, H2L,H3L,C1L,C2L,C3L,C4L,RXL,RYL,RZL,S1L,S2L 
INTEGER P1H, PPH, U1H, U2H, V1H, V2H,W1H,W2H,R1H,R2H,RSH, 
&EPH, H1H,H2H, H3H, C1H, C2H, C3H, CAH, RXH , RYH, RZH, S1H, S2H 
INTEGER VOL, VOLO, AEAST , ANORTH, AHIGH, AEDX, ANDY , AHDZ 
INTEGER D1,D1DP,D2,D2DP,EXCO,CFP,HST1,HST2 

INTEGER D10,D20,D1L,D2L,EXCOL,D1H,D2H, EXCOH 

INTEGER XG,XU,DXU,DXG, YG, YV,DYV, DYG,R,RV,ZG,ZW1,DZW, 
&DZG,WGRID 
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INTEGER XPLANE, YPLANE, ZPLANE 

LOGICAL LSLAB,MSLAB, HSLAB, LAMMU, LSPDA 

EQUIVALENCE (M1,R1),(M2,R2) 

C SATLIT-EQUIVALENT IRUN: 

EQUIVALENCE (IRUN,INTGR(11)) 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 1 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION | STARTS: 
C ARRAYS ( DIMENSIONED NY,NX ) FOR USE WITH 'ADD': 

DIMENSION CVAR(1,1),VVAR(1,1),CM(1,1),VM(1,1),ZERO(1,1) 

DIMENSION GP(30,1),6H(30,1),6D(30,1),6V(30,1),6W(30,1) 

1 ,GMAGH(30,1),GTEMP(30,1) 


Wo SPECIAL-DATA ARRAYS DIMENSIONED & DIMENSION VALUES SET HERE: 
DIMENSION LSPDA(1),ISPDAC1),RSPDA(1) 
C USER PLACES HIS VARIABLES, ARRAYS, EQUIVALENCES ETC. HERE. 


EQUIVALENCE (RAIR,RE(21)),(GAMA,RE(22)), (GSWP,RE(23)) 

DATA NLSP,NISP,NRSP/1,1,1/ 

DATA CVAR, VVAR,GM, VM, ZERO/ 5X0.0/ 
C USER PLACES HIS DATA STATEMENTS HERE. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 1 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 2 STARTS: 


C PLEASE DO NOT ALTER, OR RE-SET, ANY OF THE REMAINING 
С STATEMENTS OF THIS SECTION. 
DATA NUMCH4 / 0 и 
IF(SPDATA) 


&CALL RDSPC(IRN,INTGR(12),LSPDA,NLSP,ISPDA,NISP,RSPDA,NRSP) 
CALL GRDUTV(IRN, ICHAP, IZED, INDVAR) 
IF(BFC) CALL BFCGRD(IRN,ICHAP, ISWP,IZED, INDVAR)' 
IF(ICHAP.EQ.-5) GO TO 10 
IF(ICHAP.LE.0.0R.ICHAP.GT.16) RETURN 
GO TO (100,200,300,4999,500,600,700,800,900,1000,1100, 1200, 
81300,1400,1500,1600), ICHAP 
RETURN 
4999 NUMCH4= NUMCH4 + 1 
IF (MOD(NUMCH4,2).EQ.1) GO TO 400 
' RETURN 
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CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX STANDARD SECTION 2 ENDS. 
CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX USER SECTION 2 STARTS: 


Շ CHAPTER 0: MODIFY SATLIT DATA, AT START OF EACH IRN. 
Е НЕЕ E E E шышы eem mmm mmc 
10 CONTINUE 
C IF(.NOT.NAMLST) RETURN 
C IF(IRN.EQ.NRUN) DATFIL=.FALSE. 
С--- READ SATLIT DATA NAMELIST HERE 
C CALL WRIT40(40HENTER NAMELIST DATA FOR GROUPS 1 TO 24 ) 
C READ (20 ,G61G624) 
C CALL WRIT40(40HENTER NAMELIST DATA FOR GROUPS 25 TO 42 ) 
C READ(20,625642) 
RETURN 
l-l Í 


C CHAPTER 1: CALLED AT THE START OF EACH TIME STEP. 

C SET 'DT' HERE WHEN TLAST SET NEGATIVE IN BLOCK DATA. 

C TATIME + DT' GIVES THE END TIME OF THE CURRENT TIME STEP. 
C NOT ACCESSED IF STEADY,OR PARABOLIC. 


ապի նն 1. --.---------- S. Ll... BELL Se ee L... ...... 
100 CONTINUE 
RETURN 
i Әс 2 u. ee 
C CHAPTER 2: CALLED AT THE START OF EACH SWEEP. 
i 
200 CONTINUE 
RETURN 
MD ОО ОА 77 7277777777. eme mamme uina ue acm am crm um cm cs a E 
C CHAPTER 3: CALLED AT THE START OF EACH SLAB; 
C NOT ACCESSED IF PARABOLIC, BUT 'STRIDE' IS. 
ապ:,Խ,վյ,,».:-.....---.-...------.-- AT LL. l... O... 
300 CONTINUE 
RETURN 
ыс е —-——-————-———-——————----------->————------------------ 
С CHAPTER 4: CALLED AT THE START OF EACH RE-CALCULATION OF 
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Q 


500 


600 


VARIABLES P1i,...C4 AT CURRENT SLAB. ITNO= ITERATION NUMBER. 
CONTINUE 

RETURN 

CHAPTER 5: GROUND CALLED WHEN SOURCE TERM IS COMPUTED. 
INDVAR GIVES DEPENDENT VARIABLE IN QUESTION IE. U1,...C4. 
TO ADD SOURCE TO DEPENDENT VARIABLE CiCSAY) FOR IX=IXF,IXL 
AND IY=IYF,IYL INSERT STATEMENT: 

IFCINDVAR.EQ.C1) 

&CALL ADD(INDVAR,IXF,IXL, IYF,IYL, TYPE, CM, VM, CVAR, VVAR, NY , NX) 
NOTES ON 'ADD': | 

XSOURCE7 (CVAR(IX,IX)HAMAXI(0.0,MASFLO))X(VVAR(IV,IX)-PHI);, 
WHERE 'PHI' IS IN-CELL VALUE OF VARIABLE IN QUESTION. 

X'MASFLO'* CM(CIY,IXOX(VMCIY,IX)0-P), 

WHERE 'P' IS THE IN-CELL PRESSURE. 

XFOR INDVAR- MI, OR 2M2, SOURCE ADDED IS 'MASFLO' ONLY, 
EXCEPT FOR ONEPHS=.F. & MASFLO < 0.0 (IE. OUTFLOW) WHEN 
CM(IY,IX) IS MULTIPLIED BY R1XD1 CFOR M1) 8 R2XD2 (FOR M2). 

XBOTH 'CVAR' & 'CM' ARE MUTLIPLIED BY CELL-GEOMETRY QUANTITY 
DICTATED BY SETTING OF 'TYPE' (-CELL, EAST AREA,..VOLUME). 

XTYPE-SPECIFIED AREAS ARE CALCULATED AS IF BLOCKAGE ABSENT, 
BUT 'VOLUME' WITH ACCOUNT FOR ITS PRESENCE. 

XFOR ALL SOLVED VARIABLES, INCLUDE DING M1 ( & M2 WHEN ONEPHS-F), 
IF 'CM'» 0.0 CALL 'ADD'; FOR M1 & M2 ALTHOUGH 'CVAR' & 'VVAR' 
HAVE NO SIGNIFICANCE THEY MUST BE ENTERED AS ARGUMENTS. 

X'CVAR', 'VVAR', 'CM' & 'VM' MUST BE DIMENSIONED NY,NX. 
CONTINUE 
RETURN 
CHAPTER 6: CALLED AT THE END OF EACH VARIABLE-RECALCULATION 
CYCLE COMMENCED AT CHAPTER 4. ITNO - ITERATION NUMBER. 


CONTINUE 
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700 CONTINUE 
IF(FLOAT(ISWP).LT.GSWP) RETURN 
CALL GET(P1,GP,NY,NX) 
CALL GET(H1,GH,NY,NX) 
CALL GET(D1,GD,NY,NX) 
CALL GET(V1,GV,NY,NX) 
CALL GET(W1,GW,NY,NX) 
DO 701 I=1,NY 
GSON-SQRT(GAMAXGP(I, 1)/GD(I, 1)) 
GAV-SQRT(GV(I, 1)XX24GW(I, 1)xx2) 
GMACH(I, 1)2GAV/GSON 

701 GTEMP(I,1)=GP(I,1)/GD(I,1)/RAIR 
CALL SET(C1, 1, NX, 1, NY, GMACH, NY, NX) 
CALL SET(C2,1,NX, 1, NY, GTEMP, NY, NX) 
RETURN 
CHAPTER 8:.CALLED AT THE END OF EACH SWEEP; 
NOT ACCESSED IF PARABOLIC. 


CHAPTER 9: CALLED AT THE END OF EACH TIME STEP; 
NOT ACCESSED IF PARABOLIC. 
900 CONTINUE 
RETURN 
CHAPTER 10: SET PHASE 1 DENSITY HERE WHEN IRHO1=-1 IN DATA. 
SET CURRENT-Z 'SLAB' DENSITY, Dl, IF MSLAB=.T., 
EG. IF(MSLAB) CALL SET(D1, 1, NX, 1, NY,GD1,NY,NX). 
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SET NEXT LARGER-Z 'SLAB' DENSITV, DIH, IF HSLAB=.T. & PARAB=F 
EG. IFCHSLAB) CALL SET(D1H,1,NX,1,NY,GD1H,NY,NX). | 
SET D(LN(D1))/DP (IE. DIDP) FOR UNSTEADV FLOW, 

EG. (IF(MSLAB) CALL SET(DIDP,1,NX,1,NV,GDIDP,NXV,NX). 


Cc) C) OC 


1000 CONTINUE 
RETURN 


CHAPTER 11: SET PHASE 2 DENSITY HERE WHEN IRHO2--1 IN DATA. 
SET CURRENT-Z "SLAB' DENSITY, D2, IF MSLAB=.T., 

EG. IF(MSLAB) CALL SET(D2,1,NX,1,NY,GD2,NY,NX). 

SET NEXT LARGER-Z 'SLAB' DENSITY, D2H, IF HSLAB-.T. & PARAB-F 
EG. IIF(HSLAB) CALL SET(D2H, 1, NX, 1, NY, GD2H, NY, NX). 

SET D(LN(D2))/DP FOR UNSTEADY FLOW, 

EG. IF(MSLAB) CALL SET(D2DP, 1, NX, 1, NY, GD2DP, NY,NX). 


са са соса X2. 763) 


1100 CONTINUE 
RETURN 


CHAPTER 12: SET PHASE 1 VISCOSITY HERE WHEN IEMU1=-1 IN DATA. 
SET CURRENT-Z 'SLAB' VISCOSITY (MU1), IF MSLAB-.T., 
EG. IF(MSLAB) CALL SET(MU1, 1, NX, 1, NY, GVISC, NY, NX). 
SET NEXT LARGER-Z 'SLAB' VISC. (MUIHD, IF HSLAB-.T. & PARAB-F 
EG. IF(HSLAB) CALL SET(MUIH, 1, NX, 1, NY, GVSCH, NY, NX). 


CHAPTER ALSO ACCESSED WHEN EMULAM--1.0 IN DATA, SO THAT THE 
LAMINAR VISCOSITY WHICH APPEARS IN WALL FUNCTIONS & IN THE 
KE-EP TURBULENCE MODEL (IEMU1-2) MAY BE SET NON-CONSTANT. 
SET CURRENT-Z 'SLAB' VALUE (MUILAM)Ó WHEN LAMMU-.T., 

EG. IF(LAMMUD CALL SET(MUILAM, 1, NX, 1, NY, GVSCL, NY, NX). 


с о с о сос CG C соу сос с с 


1200 CONTINUE 
RETURN 


C CHAPTER 13: SET EXCHANGE COEFFICIENT (E.C.) FOR VARIABLE 
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OTOOTO TO OTO TQ TOTE 


INDVAR WHEN SIGMA(INDVAR)s-1.0 IN DATA. 

SET CURRENT-Z 'SLAB' E.C. (EXCO) IF MSLAB=.T., 

EG. IF(MSLAB) CALL SET(EXCO, 1, NX, 1, NY, GEXCO, NY, NX). 

SET NEXT SMALLER-Z 'SLAB' E.C. (EXCOL) IF LSLAB-.T., 

EG. IF(LSLAB) CALL SET(EXCOL, 1, NX, 1, NY, GEXCOL, NY, NX). 

SET NEXT LARGER-Z  'SLAB' E.C. (EXCOH) IF HSLAB=.T., 

EG. IF(HSLAB) CALL SET(EXCOH, 1, NX, 1, NY, GEXCOH, NY, NX). 

NOTE: FOR MSLAB, INDVAR=U1,..C4; FOR LSLAB, INDVAR=U1L,..C4L 
& FOR HSLAB, INDVAR=U1H,..C4H. IF PARAB=.T. SET MSLAB ONLY. 


CHAPTER 14: SET INTER-PHASE FRICTION COEFFICIENT (CFP) HERE 
WHEN ICFIP = -1 IN DATA; ITS UNITS = FORCE Z (CELL xX RELATIVE 
SPEED OF PHASES). | 
1400 CONTINUE 
RETURN 
CHAPTER 15: SET INTER-PHASE MASS-TRANSFER RATE PER CELL (MDT) 
HERE WHEN IMDOT = -1 IN DATA. 
1500 CONTINUE 
RETURN 
CHAPTER 16: SET HERE PHASE 1 & 2 SATURATION ENTHALPIES 
( HST1 & HST2) WHEN IHSAT = -1 IN DATA. 
1600 CONTINUE 
RETURN 
END 
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APPENDIX H 
TURBULENT OUTPUT FLOW FIELD 


DATA TAKEN FROM DEFAULT.DTA ON GROUP A/C 
FILE MODSTL.FTN IS THE SATLIT USED. 


BODY-FITTED-COORDINATE OPTION ACTIVE 

Fi ARRAY IS DIMENSIONED TO 

MINIMUM ALLOWABLE DIMENSION FOR FI 
FLOW FIELD AT, ISWEEP= 100, ISTEP= 1 
FIELD VALUES OF M (mach) 


IY=25 3.200E+00 3.200E+00 3.200E+00 
IY=24 3.200E*00 3.200Е+00 3.200Е+00 
1х-23 3.200E+00 3.200E+00 3.200E+00 
IY=22 3.200E*00 3.200E+00 3.200E*00 
IY-21 3.200E*00 3.200E+00 3.200Е+00 
IY-20 3.200E+00 3.200E+00 3.200E+00 
17519 3.200E+00 3.200E+00 3.200E*00 
IY-18 3.200E+00 3.200E+00 3.200E+00 
IY=17 3.200Е%00 3.200Е+00 3.200Е+00 
IY=16 3.200E+00 3.200E+00 3.200E+00 
IY=15 3.200E+00 3.200E+00 3.200Е+00 
IY=14 3.200E*00 3.200E+00 3.200Е+00 
17Հ 13 3.200Е+00 3.200Е+00 3.200Е+00 
IY=12 3.200E+00 3.200E+00 3.200Е+00 
IY=11 3.200E+00 3.200E+00 3.200E+00 
IY=10 3.200E+00 3.200E+00 3.200E+00 
IY= 9 3.200E+00 3.200E+00 3.200E+00 
IY= 8 3.200E+00 3.200E+00 3.200E+00 
IY= 7 3.200E+00 3.200Е+00 3.200Е+00 
IY= 6 3.200E+00 3.200E+00 3.200Е+00 
IY= 5 3.200E+00 3.200Е+00 3.200Е+00 
IY= 4 3.200E+00 3.200E+00 3.200E+00 
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Q QI GI QI GG ԹԱ QG OQ Օ G G G G G Q Թ G Q GQ G G wow 


5000 
1318 


.200Е%00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.200Е%00 
.200E*00 
.200E*00 
.200Е+00 
.200Е+00 
.200Е%00 
.200Е%00 
.200E+00 
.200E+00 
.200E+00 
.200E+00 
.199Е%00 
.198E* 00 
. 196Е+00 
.195E*00 


ы ы ы ы со GQ GQ ՕԹ Գ ш ՕՕ ՕՕ сс Q Q сс G Q Q C) ж а 


.200Е+00 
.200Е+00 
.200E*00 
.200Е+00 
.200Е+00 
.200Е%00 
.200E* 00 
.200Е+00 . 
.200E*00 
.200Е+00 
.199Е%00 
.199E* 00 
.199E*00 
.199Е%00 
.199E* 00 
.199E*00 
.198E*00 
.197E*00 
.194Е%00 
. 183E+00 
.157Е%00 
.144Е+00 


IY= 3 
IY= 2 
IY= 4 
IZ= 

IY=25 
ІҮ=24 
ІҮ=23 
ІҮ=22 
ІҮ=21 
ІҮ=20 
ГҮ=19 
ІҮ=18 
17517 
17516 
17515 
17514 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 8 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 1 


о OQ гл пое ՀՊՎ 


1525 
IY-24 
IY=23 
IY=22 
IY=21 


3.200E+00 
3.200E*00 
3.200Е+00 
1 

.200Е+00 
.200Е+00 
.200Е+00 
.200Е%00 
.200Е%00 
.199Е%00 
.199E*00 
.199E*00 
.199Е+00 
. 198Е+00 
.198Е%00 
.198E*00 
 І97ЕЗ00 
.197Е400 
.196E*00 
.195E+00 
.193E*00 
.190E*00 
.179Е+00 
.146E*00 
.082E+00 
.050E-*00 
.022Е+00 
.995Е%00 
.556Е%00 
6 

3.200E+00 
3.200E+00 
3.200E+00 
3.199E+00 
3.199E+00 


го Qi ы GQ G G GQ G GQ G Ա ԱՕ G G GQ G GQ G GQ GQ ՕՍ G G QQ 


3.200Е+00 
3.200Е+00 


3.200Е+00 


2 

.200Е%00 
.200E*00 
.200E*00 
.200Е+00 
.200Е%00 
.199E*00 
.199E*00 
.199E*00 
.199E*00 
.198E*00 
. 198E+00 
. 197E+00 
.197E*00 
.196E*00 
. 195E+00 
.194Е%00 
.190Е%00 
.181E+00 
.156E+00 
.097E+00 
.030E+00 
.010E+00 
.997E*00 
.946E*00 
.235Е+00 
7 

.200E*00 
.200Е%00 
.199E*00 
.199E*00 
.198E*00 


о оыс ы (ы ы са GQ G Թ GQ ԱՕ ԱՕ G G G G Ա GQ GQ G GQ G ՍԿ QUQ 


а WW U Q 
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3.200E+00 
3.199E+00 
3.199E+00 
3 
3.200E+00 
3.200E+00 
3.200Е+00 
3.200Е+00 
3.200Е+00 
3.199E+00 
3.199E+00 
3.199E+00 
3.199E+00 
3.198E+00 
3.198E+00 
3.197E+00 
3.196E+00 
3.195E+00 
3.192E+00 
3.187E+00 
3.176E+00 
3.154E+00 
3.112E+00 
3.045Е+00 
3.012Е+00 
3.005Е+00 
2.995E+00 
2.891E*00 
2.046E+00 
8 
3.199E+00 
3.199E+00 
3.199Е+00 
3.198Е+00 
3.197Е+00 


3.195Е+00 
3.195Е+00 
3.195Е+00 
4 

.200Е+00 
.200Е+00 
.200Е+00 
.200Е+00 
.199Е+00 
.199Е+00 
.199Е+00 
.199Е+00 
.198Е+00 
.198Е+00 
.197Е+00 
.195Е+00 
.193Е+00 
.189Е+00 
.181E+00 
.168E*00 
.144Е+00 
.106Е+00 
.056Е+00 
.010E+00 
.010E+00 
.007E+00 
.972E+00 
.726E+00 
.089E+00 
9 

.199E+00 
.199E+00 
.198E+00 
.197E+00 
.195E+00 


N O D G GQ G GQ GQ G G GQ G G G G G G G G G G Ա G GQ са 


а WW (в Q 


š 
š 
š 


N ԾՆ Թ џ ша ы Օ G G GQ G GQ GQ G G G GQ G GQ G GQ G GQ G а 


.132E+00 
.121E*00 
.114E*00 


5 


.200Е%00 
.200Е+00 
.200Е+00 
.200Е+00 
.199Е+00 


.199E*00 


.199E*00 


.198E*00 


.197E*00 
.196Е+00 
.194Е%00 
.191E*00 
.185Е+00 
. 176Е+00 
. 160Е+00 
.136E*00 
.101Е%00 
.060E*00 
.022Е%00 
.002Е+00 
.008Е+00 
.999Е+00 
.894Е+00 
.652Е+00 
.084Е%00 


= 
© 


Q1 O GQ G са 


.199E*00 
.198Е+00 
.198E*00 
.196Е%00 
.194Е%00 


IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
ІҮ=13 
14512 
14511 
147510 
IY= 9 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IZ= 
IY=25 
ТҮ=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
ТҮ=13 
17512 


Թ» GQ г л с 51 О 


— 


.199Е%00 
.198Е%00 
.197E*00 
.195E*00 
. 193E+00 
.188Е%00 
.181Е%00 
.170E*00 
.153E*00 
.128E*00 
.097E*00 
.061E*00 
.029Е+00 
.008Е%00 
.002Е%00 


.982Е%00 
.801E+00 
.621E+00 
.069E*00 


N N N N GQ G GQ GQ G GQ GQ G GQ G сс ՕԳ GQ GQ п# Q 


«ռավ 
= 


.198E+00 
.198E*00 
.197E*00 
.196Е%00 
.193E+00 
.189E*00 
.183E*00 
.174E*00 
.161E*00 
, 143E400 
.120E+00 
.094E+00 
.067E+00 
.044Е+00 


ы OQ G ыни 


.005E*00 


3.198Е+00 
3.196Е+00 
3.194Е+00 


23.191Е%00 


3.185E+00 
3.177E+00 
3.165E+00 
3. 146E+00 
3.122E+00 
3.092Е+00 
3.061E400 


3.033E+00 


3.013E+00 
3.004E+00 
3.003E+00 
3.002E+00 
2.954E+00 
2.728E+00 
2.588E+00 
2.048E+00 
12 

3.198E+00 
3.198E+00 
3.197E*00 
3.195E+00 
3.193E+00 
3.189E+00 
3.182E+00 
3.173Е+00 
3.159Е+00 
3.141Е+00 
3.118E+00 
3.091Е+00 
3.065Е+00 
3.044Е+00 
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.196Е+00 
.193Е+00 
.189E*00 
SIS SEX 00 
.173E*00 
.160E*00 
- 141E+00 
.117E*00 
.089E+00 
.060E*00 
.035Е%00 
.017Е%00 
.008E+00 
.004Е+00 
.003Е+00 
.997Е+00 
.913E*00 
.680Е+00 
.557Е%00 
.026Е%00 


թ» ԾԹ NNN ՕՕ GQ G G GQ G G G GQ G GQ GQ G а CI 


տահ 
Q 


.198E*00 
.198E*00 
.197E*00 
- 195E+00 
.193E*00 
. 188E+00 
.182Е%00 
.172Е%00 
.158bE*00 
. 139E+00 
.116E*00 
.090E*00 
. 065Е+00 
.044E*00 


с со G GQ GQ GQ G GQ GQ GQ G GQ W со 


N N N N Թ G Q G Q GQ GQ G GQ GQ GQ G GQ GQ GQ CI 


.193E+00 
„189Е+00 
.1835+00 
.173E*00 
.160E*00 
. 141E*00 
.118E*00 
.091Е+00 
.064Е+00 
.040E+00 
.022Е+00 
.012Е%00 
.007Е%00 
.005Е+00 
.004Е+00 
.990Е+00 
.865Е+00 
.649Е%00 
.531Е+00 
.006Е+00 


=. 
г 


.198E*00 
.198Е%00 
. 197E+00 
.196E*00 
.193Е+00 
.189E*00 
.182Е%00 
.172Е%00 
.158Е%00 
.139Е+00 
.116E*00 
. 090Е+00 
.066E+00 
.046E+00 


QU ы GQ GQ GQ Q GQ G GQ GQ GQ а а с 


.191E+00 
.185E+00 
. 177E*00 
.166E*00 
.150E*00 
.129Е%00 
.103Е+00 
.076Е+00 
.051E+00 
.031E+00 
.018E+00 
.011E+00 
.008E+00 
.007E+00 
.006E+00 
.986E+00 
.842E+00 
.637Е+00 
.521Е%00 
.997Е%00 


N ԾԹ Թ Թ G ы G GQ а ՕԳ GQ G GQ ов G GQ G GQ Q 


ամ ті 
տ 


.198Е%00 
.198Е%00 
.197Е%00 
.196Е+00 
.193E*00 
.189E*00 
.183Е+00 
.174Е+00 
. 160Е+00 
. 142Е+00 
.120E*00 
.095Е%00 
.073Е+00 
.055Е+00 


а ы ы GQ GQ сс QG ԹՕ ՕԱ GQ Q GQ Q с 


IY=11 
IY=10 
IY= 9 
IY= 
IY= 
IY= 
IY= 
IY= 
ІҮ- 
IY= 
IY= 
12 
17-25 
17Հ24 
ГҮ=23 
17522 
17521 
17520 
17-19 
17Հ18 
ГҮ=17 
1Ү=16 
ІҮ-15 
ІҮ-14 
IY-13 
IY=12 
IY=11 
IY=10 
IY= 9 


мз ы с іл Oo - со 


— 


IY= 
IY= 
IY= 
IY= 
IY= 


а г տ Oo Վ О 


P ԾԹ ԾԹ Թ а G G G а аа 


шей лем 
о 


N Թ ԾԹ ә Թ Թ м ( ( CI 


ափ em 


.027E*00 
.017E*00 
.012Е%00 
.010Е%00 
.010E+00 
.008E*00 
.983Е%00 
.820Е%00 
.628Е%00 
.513Е+00 
.990E*00 


.194EH00 
.153EH00 
.077Е+00 
.971E+00 
.845E+00 
.705E+00 
.559E+00 
.409E+00 
.259E+00 
.108E+00 
.960E+00 
.817E+00 
.683E+00 
.562E+00 
.á58E+00 
.367E+00 
.289E+00 
.220E+00 
.157E400 
„100Е+00 
.058E*00 
.006E*00 
1719501 


.028E*00 
.019Е%00 
.015Е%00 
.014Е%00 


.011E+00 
.985E+00 
.818E+00 
.629Е%00 
.515Е%00 
.992Е%00 
17 

3.194Е%00 
3.154E+00 
3.078E+00 
2.,973ET00 
2.848E+00 
2.711E*00 
2.567E+00 
2.422E+00 
2.277E+00 
2.134E+00 
1.993E+00 
1.856E+00 
1.727E+00 
1.609E+00 
1.503E+00 
1.410E*00 
1.328Е+00 
1.254Е+00 
1.186Е+00 
1.121Е%00 
1.069Е%00 
1.015E+00 
9:/797E901 


о о о ә (а G G G G Թ 


b 
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.013E+00 


P ԾԹ ԾԹ N о а G G G а а 


-» 
Со 


.030Е%00 
.022Е%00 
.019Е%00 
.018Е%00 
.017Е%00 
.015Е+00 
.990Е+00 
.820Е%00 
.636E*00 
.523Е+00 
.000Е%00 


tó t9 NEN а а odo o oO сі 


«առի 
хо 


.033E+00 
.026Е+00 
.023Е+00 
.022Е+00 
.020Е+00 
.020Е%00 
.001E+00 
.835Е+00 
.670E*00 
.574Е%00 
.082Е%00 


P о м Թ (ы G G GQ а я а 


г 
eo 


.043Е%00 
.036Е%00 
.033E+00 
.031Е+00 
.028Е%00 
.028Е%00 
.005E*00 
.848E*00 
.707Е%00 
.616Е%00 
.127Е%00 


IY= 2 9.641Е-01 9.697Ք-01 
IY- 1  8.192bE-01  8.283E-01 
IZ- 21 22 

FIELD VALUES OF T (temprature) 
17-25 1.990Е+02 1.990Е+02 .990E+02 1.990Е+02 .990Е+02 
172524 1.990E+02 1.990E+02 .990E+02 1.990Е+02 .990E*02 
IY-23 1.990Е%02 1.990Е+02 .990E*02 1.990Е+02 .990E+02 
IY=22 1.990Е+02 1.990E+02 .990E*02 1.990Е+02 .990E+02 
IV-21 1.990Е+02 1.990E+02 .990Е+02 1.990Е+02 .990E+02 
IY-20 1.990E+02 1.990E+02 .990E*02 1.990Е+02 .990E+02 
IY=19 1.990Е+02 1.990E+02 .990E+02 1.990Е+02 .990E*02 
IY-18 1.990E+02 1.990E+02 .990E+02 1.990Е+02 .990E+02 
14517 1.990E+02 1.990E+02 .990E*02 1.990Е+02 .990E+02 
17516 1.990E+02 1.990E+02 .990Е+02 1.990Е+02 .990Е+02 
17515 1.990Е+02 1.990E+02 .990Е+02 1.990Е+02 .990Е+02 
17514 1.990E+02 1.990Е+02 .990E+02 1.990Е+02 .990Е+02 
ІҮ=13 1.990Е%02 1.990Е+02 .990E+02 1.990Е+02 .990Е+02 
14512 1.990E+02 1.990Е+02 .990E*02 1.990Е+02 .990Е+02 
ІҮ=11 1.990Е+02 1.990E+02 .990Е+02 1.990Е+02 .990E+02 
17510 1.990E+02 1.990E+02 .990E+02 1.990E+02 .990Е+02 
IY= 9 1.990Е+02 1.990Е+02 .990E+02 1.990Е+02 .990Е+02 
IY= 8 1.990Е+02 1.990Е+02 .990Е+02 1.990Е+02 .990E*02 
IY- 7  1.990E*02 1.990E+02 .990E+02 1.990E+02 .991Е+02 
IY= 6 1.990Е+02 1.990E+02 .990E*02 1.990Е+02 .993Е+02 
IY= 5 1.990E+02 1.990E+02 .990E+02 1.990Е+02 .997E+02 
IY= 4 1.990E+02 1.990Е+02 .990Е+02 1.990E+02 .998E+02 
IY- 3  1.990E*02 1.990E+02 .990Е+02 1.990Е+02 .999Е+02 
IY= 2 1.990E+02 1.990Е+02 .990Е+02 1.990Е+02 .999Е+02 
IY= 1 1.990E+02 1.990E+02 .990E*02 1.990Е+02 .999Е+02 
IZ= 1 4 
17-25 1.990E+02 1.990E+02 .990E*02 1.990Е+02 .990Е+02 
17-24 1.990E+02 1.990E+02 .990E+02 1.990Е+02 .990E+02 
IY-23 1.990Е+02 1.990E+02 .990Е+02 1.990Е+02 .990Е+02 
1ү=22 1.990Е+02 1.990Е+02 .990Е+02 1.990Е+02 .990Е+02 
IY=21 1.990Е+02 1.990E+02 .990E*02 1.990Е+02 .990Е+02 
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IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
17514 
17-15 
17-12 
17211 
17510 
175 9 
IY= 
IY= 
IY= 
IY= 
IY= 


о о г іл О Վ Ф 


1.990E402 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.990Е+02 
1.992Е+02 
.996Е+02 
.013Е+02 
:060Е+02 
.090Е+02 
2.122Е%02 
2.146E*02 
2.156E*02 
6 


pe] 


о о N 


1.990E+02 
1.990E+02 
17729906702 
1.990Е+02 
ПО ЕТО ОФ 
1.990Е+02 
1.990Е+02 
1.991E+02 
1.991E+02 
1.995E*02 
1.995E*02 
1.999E*02 
2.006E402 
2.017E402 


1.990E*02 
1.990E*02 
1.990E*02 
1.990E*02 
1.990E*02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.991Е+02 
1.992E402 
.996Е%02 
.010Е+02 
.051Е+02 
.123Е+02 
.147Е+02 
.160Е+02 
.164Е%02 
.163Е%02 
7 

1.990Е+02 
1.990Е+02 
1.990E*02 
1.990Е+02 
1.990E*02 
1.991E*02 
1.991E+02 
1.992E+02 
1.994E+02 
.997Е+02 
.002Е+02 
.010Е+02 
.023Е+02 
.041Е+02 


асай 


о о NY Թ ԾԹ [D N 


mal 


N N N N 
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— 


N N о о Թ Թ 


.990E+02 
.990E+02 
.990E+02 
.990E+02 
.990Е+02 
.990E*02 
.990E*02 
.990E*02 
.990E*02 
.991E*02 
:99SET02 
.997E*02 
.008E*02 
.036Е+02 
.096Е+02 
.150E*02 
.160E*02 
.163Е+02 
.163Е+02 
.162E*02 


.990E*02 
.990E*02 
.990E*02 
.991E*02 
.991E*02 
.992Е+02 
.993Е+02 
.996Е+02 
.000E*02 
.006E*02 
.015E+02 
.028E+02 
.047E+02 
.070E*02 


i 


թ» Թ N N N о оо NY (2 Թ 


== 


N N N N N PM WN 


.990E+02 
.990E+02 
.990E+02 
.990E+02 
.990E+02 
.990E+02 
.991E+02 
.991E+02 
.993E+02 
.997E+02 
.004E+02 
.019E+02 
.046E+02 
.090E+02 
.142E402 
воа 
.155E+02 
.155E*02 
.154E+02 
.154E*02 


.990Е+02 
.991Е+02 
ПОНЕ 02. 
.992E*02 
.993E*02 
. 994E* 02 
-997E t02 
.002E+02 
.008E+02 
.019E+02 
.033Е+02 
.051Е+02 
.074Е+02 
.098E*02 
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ափ -й тай 
e 


Е 
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.990E*02 
.990E*02 
.990Е+02 
.990Е+02 
.991Е+02 
.992Е+02 
.993Е+02 
.996Е+02 
.001Е+02 
.011E*02 
.028E*02 
.054E*02 
.090E*02 
.130E+02 
.156E+02 
.155E+02 
.154E*02 
.154E*02 
.154E*02 
.153E+02 


.991E+02 
.991E+02 
.991E+02 
.992Е+02 
.994Е+02 
.996Е+02 
.000E*02 
.006E*02 
.014E*02 
.027E*02 
.043E+02 
.064E+02 
.088E*02 
.111E*02 


IY=11 
IY=10 


IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IZ 
IY=25 
IY=24 
IY=23 
IY=22 
17521 
17520 
17519 
17518 
17517 
17516 
17515 
17514 
17515 
17512 
17511 
17510 
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ափ йл т 
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.035E+02 
.060E+02 
.092E+02 
.124Е%02 
.149E+02 
.157Е+02 
.157Е+02 
.157Е+02 
.156Е+02 
.157Е+02 
.156Е+02 


.991Е+02 
.991Е+02 
2992Е 02 
.993Е+02 
.995Е+02 
.998E* 02 
.003Е+02 
.010E*02 
.021E*02 
.035Е+02 
. 054E*02 
.077E*02 
. 100E* 02 
.121E+02 
.137Е+02 
.147E*02 
. 152E+02 
.154E*02 
.154E*02 
.154E*02 
.154E*02 
.154E*02 
.154E*02 


2.065E*02 
2.094E*02 
2.122Е%02 
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1 
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i 
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144E402 
155E+02 
157E+02 
158E+02 
158E+02 
157E+02 
158E+02 
157E+02 


991E+02 


.991E+02 
.992E* 02 
.993Е+02 
Soo oe 02 
.998E* 02 
.003E+02 
.011E+02 
.022Е+02 
.037Е+02 
.057E*02 
.080Е+02 
. 103Е+02 
.123E+02 
.138E+02 
.147E* 02 
.151E*02 
.152Е+02 
.152E*02 
.152E*02 
.152E*02 
.151Е+02 
.151E+02 
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(ы 


=. 


P Թ ԾԹ ԾԹ ԾԹ Թ Թ ә м м м мм NY NY NY NY N 


.096E*02 
.121E* 02 
.141E* 02 
.153Е+02 
, 157E402 
.157Е%02 
.157Е%02 
. 157E+02 
.157E*02 
.158E* 02 
.157E*02 


„991Е+02 
„991Е+02 
.992E+02 
.993E+02 
.995E+02 
.999E+02 
„004Е+02 
„012Е+02 
.023E+02 
.039Е+02 
.059E*02 
.082E*02 
.104E*02 
.123E*02 
.137E*02 
. 145E* 02 
. 149E*02 
.150E*02 
.150E*02 
.150E+02 
.148E+02 
.148E+02 
.147E402 


Ը» о о о 2 2 о NY NY м N 


+. 


а=) 


P PM N N Թ ԾԹ N Թ Թ Թ Թ Ս Թ ԷԹ NY Թ ON 


.121E*02 
.138E*02 
.150E*02 
.155E*02 
.157E* 02 
,157E*02 
.157E* 02 
.156E*02 
.156E*02 
.157E*02 
.156E*02 


.991Е+02 
-991E+02 
.992E* 02 
.993E*02 
.995Е+02 
.999Е+02 
.004Е+02 
.012Е+02 
.024Е+02 
.040Е+02 
.060E*02 
.083Е+02 
.105E+02 
, 123E402 
, 135E402 
, 143E402 
. T46E* 02 
. 146E* 02 
. 146E*02 
.146E*02 
.142E*02 
. 139Е+02 
.136E*02 


N N N NN о о оо о NY P г 


un 


= 


N N N DD Թ ԾԹ ԾԹ Թ Թ Թ Թ Թ ә мм ԷԹ м N 


.131E+02 
.144Е+02 
.152Е+02 
.155Е+02 
.156Е+02 
.156Е+02 
.155Е+02 
.155Е+02 
.155Е+02 
.156Е+02 
.155Е+02 


991Е+02 


.991Е+02 
.992E+02 
.993E+02 
.995E+02 
.999E+02 
.004E+02 
.013E+02 
.024E+02 
.040E+02 
.060E+02 
.082E+02 
.103E+02 
.120E+02 
.131E402 
.138Е+02 
.140Е+02 
.141E+02 
.141Е+02 
.139Е+02 
, 122E402 
.105E+02 
.077E+02 


IY=25 
IY=24 
IY=23 
IY=22 
is-21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
ІҮ-13 
ГҮ=12 
ГҮ=11 
ГҮ=10 
IY= 9 


IY= 
im 
Ши - 
IY 
IY= 
IY= 
IZ= 


թ ы + Uu с м с 


=b 


2.155E402 
2. ISSEFOŻ 
16 

1.991E402 
1:99 17E'T02 
1.992E402 
1.993E+02 
1.995E+02 
.998Е+02 
.003Е+02 
.011Е+02 
.022Е+02 
.036Е+02 
.054Е+02 
.074Е+02 
.092Е+02 
.106E*02 
.116Е%02 
‚122Е#02 
.124E*02 
.124E*02 
.123E+02 
. 120E+02 
.091E*02 
.068E*02 
.039E* 02 
.014E*02 
.008Е+02 
21 


=A 


t t WO ԾԹ Ծ Ծ Ծ Ծ Ծ Ծ Ծ NY WY мю NY NY о мо шм 


FIELD VALUES OF H] 


IY=25 
IY-24 
14-25 
17222 
Py=21 


6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 


2.152E+02 
2. ТӘТЕЗОӘ 
17 

1.990E+02 
1.990E402 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 


1.990E402 


1.990E*02 
1.9905+02 
1.990Е+02 
1.990Е+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.990E+02 
1.988E+02 
1.964E+02 
22 


.150E*05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 


о о о о © 
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2 
2. 
18 


о о с с с 


149Е+02 
147Е+02 


.150E*05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 


2. 
à. 
19 


о о о о © 


137E*02 
136E*02 


.150E*05 
.150E*05 
.150E*05 
EI50ET05 
.150Е%05 


2.036Е%02 


2.005E*02 


20 


о о о с © 


.150E+05 
.150E*05 
.150E*05 
‚150Е+05 
‚150Е+05 


.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
.150Е%05 
.150E*05 
.150E*05 
.150Е%05 
. 150ԵՀ05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
1 

.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 


о се O оо с о О с CG с со Կ G о о о о о о © 


то со с о DDD DD DD HD © 


.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150E*05 
.150Е%05 
2 

.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 


с ON со о с со GA Aaa аа с о с о с Կ о DA г а 


со с Оо с с оо с со Կ с A г а 
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O O ос O O O O O O O ԺԹ ԺՊ ԺՊ па O ос O O O о 


аз 


со с ԹԸ с со со ՇԿ с GA с Կ 0 о 


.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150E*05 


150E*05 


.150E*05 
.150Е+05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 


.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 


.150E*05 
.150E*05 
150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е+05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
4 

.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 


O сос Оо о GO G Q G O OQ Շ GO G ՇԿ O о о о о о 


ON Оо DD DADA оо ст со О О г г а 


„150Е+05 
.150E*05 
.150Е%05 
.150E+05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
5 

.150Е+05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
.150Е%05 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 


го с O о ԹԿ GO G GA Կ GO Կ GQ GO GO Aa Aa WA сс © 


по с с о с с оо с со ст со с DW © 


IY=11 
IY=10 
IY= 9 
IY= 8 
IY= 


ՀՎ 


i= 
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IY= 
ՆԱ | 
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IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 


IY=19 . 


IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
W= 
IY= 
IY= 
IY= 
IY= 


а + Un ее Վ со 


6. 
6. 
6. 
64 
6. 
6. 
9. 
6. 
6. 
6. 


150E405 
150E405 
150E+05 
150E405 
150E405 
150E405 
150E405 
150E+05 
150E+05 
141E+05 


5.690E+05 


տ с с с с с с с с с с с г о с го с г с с г а 


.150E405 
.150E+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150E*05 
.150E*05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.150E+05 
.148E+05 
.123E+05 
.935E+05 


лс с с с с с DA Q о о 


տ со с со с с с с со с с с с с с с с с с г с г © 


.150Е%05 
.150E*05 
.150E*05 
.150Е+05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.149E*05 
.099Е%05 
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.150Е%05 
.150E*05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е+05 
.150E*05 
.150E*05 
.150Е%05 
‚150Е+05 
.150E+05 
.150E+05 
.150Е%05 
.145Е%05 
.093Е%05 
.863Е%05 
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.150E*05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.144Е%05 
.035Е+05 
.194Е%05 


.150Е%05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150Е+05 
.150E*05 
.150E*05 
.150Е+05 
.150E+05 
.150E*05 
.150Е+05 
.150E*05 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.139Е+05 
.048Е+05 
.816E*05 
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.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.147E*05 
„113Е+05 
.859E405 
.258Е+05 


.150Е+05 
.150Е+05 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150E*05 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
.150E*05 
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.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е+05 
, 149E405 
.140Е+05 
.029E*05 
.793E*05 
.262Е%05 


.150Е%05 
.150E*05 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.149E*05 
, 123E405 
.967E*05 
.770E*05 


5.766E+05 
5.252E+05 
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.150E+05 
.150E+05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E*05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150Е%05 
.150E*05 
- 149E+05 
.115Е%05 
.941E*05 
.757Е%05 
.651Е%05 
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տ տ տ տ Q осо с с с оо с се с ՇԿ A ADA DA A A A A с а 


-— 
о 


.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 


O Оо се о г о 


5.734E405 
5.233Е+05 
12 

6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E405 
6.150E405 
6.150E405 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.149E+05 
6.113E+05 
5.934E405 
5.754E405 
5.648Е+05 
5.168Е+05 


6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
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5.702E405 
5.211E405 
13 

6.150E405 
6.150E405 
6.150E405 
6.150E405 
6.150E405 
6.150E405 
6.150E405 
6.150E405 
6.150E405 
6. 150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E+05 
6.150E405 
6.150E405 
6.150E405 
6.149E405 
6.111E405 
5.927E405 
5.750E405 
5.645E405 
5.165E405 
18 


5.676E405 
5.190E405 
14 

.150Е%05 
.150Е%05 
.150E*05 
.150E*05 
.150Е+05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150Е%05 
, 149E405 
.110Е%05 
.921Е+05 
.748Е+05 
.642Е+05 
.172Е+05 


տ տ տ տ с со с с с са с. с ос со ос A Aa DA о о а A оо 


«ոփ 
“ 


5.663E*05 
5.180E+05 
15 
6.150E+05 
6.150E*05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.150Е+05 
6.147Е+05 
6.087Е+05 
5.897Е+05 
5.733E405 
5.621E*05 
5.163E*05 
20 


IY= 
IY= 
IY= 1 
IZ= 
FIELD 
IY=25 
17224 
17525 
17522 
IY-21 
IY-20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 


8 
7 
6 
IY= 5 
| с 
3 
2 


i29 տ տ дл տ QO Q пс пс с со со с св со с ап а о 


N 


Հ c c c c c Վ Վ Վ Վ Վ Վ Վ 


.150E*05 
„150Е+05 
.150E*05 
.150E*05 
.150Е%05 
.150Е%05 
.150E*05 
.150Е%05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.150E*05 
.144Е%05 
.068E*05 
.882Е%05 
.728E+05 
.629Е+05 
.156Е%05 


VALUES OF KE 
.889E+01 
.889Е+01 
.889Е+01 
.889Е+01 
.889E*01 
.889Е+01 
.889Е+01 
.889E*01 
.889E*01 
.889E*01 
.889Е+01 
,889E401 
, 889E401 
.889E*01 


Qi с Uu Ui іл (л О пс Կ св пс Q г а 


ՀՎ мо о 


г 
г 


N N N N Վ Վ Վ Վ ՀՎ Վ Վ ^c Վ Վ 


.149E+05 
.148E*05 
.145Е%05 
.140Е%05 
.131E+05 
.114Е%05 
.084Е+05 
.031Е+05 
.940Е+05 
.787E*05 
.536Е+05 
.131Е+05 
.482Е%05 
.444Е+05 
.758E*05 
.128E+05 
.214Е+04 
.723Е+04 
.552Е%03 


.885E+01 
.885Е+01 
.885E+01 
.885Е+01 
.885E*01 
.885E*01 
.885E*01 
.885Е+01 
.885Е+01 
,885E401 
, 885E401 
.885E*01 
.885E*01 
.885E*01 
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Հ ^c N 71 Վ Վ Վ Վ Վ Վ Վ Վ Վ АЈ 


.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 
.880E+01 


Հ c N 1 Հ Վ Վ Վ -Վ Վ Վ Վ Վ Վ 


.875E+01 
.875E*01 
.875Е+01 
.875E*01 
.875E*01 
.875E*01 
.875Е+01 
.875Е+01 
.875E+01 
.875E+01 
.875E+01 
.875E+01 
.875E+01 
.875E*01 


Հ c c Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ 


.870E*01 
.870E*01 
.870Е+01 
.870Е+01 
.870Е+01 
.870Е+01 
.870Е+01 
.870Е+01 
.870E*01 
.870Е+01 
.870Е+01 
.870Е+01 
.870Е+01 
.870E401 


ГҮ=11 
IY=10 
IY= 9 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 1 
12< 

IY=25 
ТҮ=24 
ТҮ=23 
IY=22 
IY=21 
IY=20 
IY=19 
ГҮ=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 

IY= 


о о г іі A Վ Օ 


IY= 
IY= 


H 
ња 
| 
а қал A ՀՊՎ о 


N N N N Վ “1 Վ Վ Վ Վ -4 


о о со со Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Հ Վ Վ Վ ՀՎ 


.889E*01 
.889E*01 
.889Е+01 
.889E*01 
.889Е+01 
.889E*01 
.889E*01 
.889Е+01 
.889Е+01 
.889Е+01 
.889E*01 


,865E401 
.865E*01 
.865E*01 
.865E*01 
.865E*01 
.865E*01 
.865Е+01 
.865E+01 
.865E+01 
.865E+01 
.865E+01 
.865E*01 
.865E*01 
.865E*01 
.865Е+01 
.865E*01 
.866Е+01 
.875E*01 
.944Е+01 
.351Е+01 
.865Е+01 
.969Е+01 
.965E*01 


Հ 1 N Հ Վ . Հ Վ Վ Վ ՀՎ 


O о о о о -1 ча Վ Հ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ 


,885E401 
.885E*01 
,885E401 
.885Е+01 
.885ԵՀ0 | 
.885E+01 
.885E+01 
.885E+01 
.885E+01 
.885E+01 
.885E*01 


.860E*01 
.860E*01 
.860E*01 
.860E*01 
.860Е+01 
.860Е+01 
.860Е+01 
.860E*01 
.860E*01 
.860Е+01 
.860Е+01 
.860E*01 
.860E*01 
.860E*01 
.861E*01 
.862Е+01 
,867E401 
.900E+01 
.068E*01 
.5575+01 
.913Е+01 
.995Е%01 
.778E*01 


162 


N N N N Վ Վ Վ Վ Վ Վ ՀՎ 


O со со со со Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ ч 


.880E+01 
.880Е+01 
.880E*01 
.880E*01 
.880Е%01 
-880Е%01 
.880Е%01 
.880Е%01 
.880E*01 
.880E*01 
.880E*01 


,855E401 
.855E*01 
.855E*01 
.855E*01 
.855Е+01 
„855Е+01 
.855E*01 
.855E*01 
,855E401 
.855Е+01 
.855Е+01 
.855Е+01 
-856E+01 
.856E*01 
,859E401 
.866E*01 
.894E*01 
.982Е+01 
.209E*01 
.567E*01 
.855Е+01 
.923Е+01 
.632Е+01 


1 N N N N c c Վ Վ а N 


ՔԻ Од о о со со о 41 ՀՎ Վ Հ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ Վ 74 


.875E*01 
.875E*01 
.875E*01 
.875Е+01 
.875E*01 
.879E*01 
.883E*01 
.883Е+01 
.882Е+01 
.880E*01 
.880E*01 


.845Е+01 
.845Е%01 
.845Е+01 
,845E401 
,845E401 
.845E+01 
.845E+01 
.846E*01 
,846E401 
.846Е+01 
.846E*01 
.847Е+01 
.849Е+01 
.855Е+01 
.872Е+01 
.916E*01 
.011Е+01 
.165E*01 
.339E+01 
.538E+01 
.724E*01 
.391Е+01 
.550Е+02 


O о о со со со Վ Վ Վ Վ Վ 


O O со O O о Վ Վ Վ Վ Վ Վ Վ Վ Վ 1 “1 Վ Վ Վ Վ 


N — 


,870E401 
.870E+01 
.870E+01 
.871Е+01 
.886Е+01 
,055E401 
.492E*01 
.691E*01 
.719E*01 
.503E+01 
.402Е+01 


.836Е+01 
.836Е+01 
.836E*01 
.836Е+01 
.836Е+01 
.836Е+01 
.836Е+01 
.836E+01 
.856Е%01 
.837Е+01 
.838Е+01 
.842Е+01 
.851E*01 
.873E*01 
.922Е+01 
.012Е%01 
.142Е+01 
.269E*01 
.566E*01 
.508E*01 
.618E*01 
.525E+02 
.055E*03 


IY= 2 
IY= 1 
IZ= 

IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
17511 
17510 
IY= 9 
IY= 
IY= 
IY= 
IY= 
IY= 


о о fF տ O Վ о 


IY= 
IY= 


===8 


ІҮ-25 
ІҮ-24 
IY=23 
IY=22 
IY=21 
ІҮ=20 


1.149Е+02 
5.030Е+03 
6 

.826E*01 
.826E*01 
.826E*01 
.826Е%01 
.826Е%01 
.826Е+01 
. 826Е+01 
.827Е+01 
.828Е+01 
.830Е+01 
.835Е+01 
,847E401 
.873E*01 
.922Е+01 
.005Е+01 
. 114E401 
.222E*01 
.300Е+01 
.362E+01 
.472E*01 
.798E*01 
.072E+02 
.954E+03 
.268Е+04 
.625Е+03 


а чо о о о оо оо о Оо Վ NN NN а Վ 1 Վ Վ Վ Վ Վ Վ 


- OJ за 
— 


.788E*01 
.788E*01 
.788E*01 
.789E*01 
.790E*01 
.793E*01 


Հ c c c N Վ 


տ се OO о Ք о о ч Վ Վ Վ Վ Վ Վ Վ Վ 1 Վ Վ Վ ч 


2.120E402 
4.126Е+03 
И 

.816Е+01 
.816E*01 
.816Е+01 
.817Е+01 
.817Е+01 
.817E*01 
.818E*01 
.819E*01 
.822Е%01 
.829Е%01 
.843E+01 
.872E+01 
.922E+01 
.996E+01 
.088E+01 
.178E+01 
.250E*01 
.301E+01 
. 349E*01 
.429E*01 
.988E*01 
.276E+02 
.202E+03 
.281E+04 
/572E*03 


ամ Վ. ча 
г 


.786E*01 
.786E*01 
.787E*01 
.788E+01 
.789E+01 
. 793E*01 


ՀՎ c c c Վ N 
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Би 
5. 


527E402 
531E+03 


807E+01 


.807E*01 
.807Е+01 
.807Е+01 
.807Е+01 
,808E401 
.810Е+01 
.814Е+01 
.823Е+01 
.840Е+01 
.871Е+01 
.921E*01 
.989Е+01 
.067E*01 
. 141E*01 
.203E+01 
.252E*01 
.292Е%01 
.331E+01 
.390E+01 
„305Е102 
. 11583405 
.826Е%03 
.296Е%04 
,513E403 


.785E*01 
.785E*01 
.786E*01 
.786E*01 
, 788E401 
792 EtT00 


6.889Е+03 
3.667Е+03 
9 

.797E*01 
.797Е%01 
.797E*01 
.798E*01 
.799E*01 
.800E*01 
.804Е%01 
.812Е%01 
.829Е+01 
.860Е+01 
.911Е%01 
.982Е%01 
.061E*01 
, 129E401 
.176Е%01 
.213Е+01 
.248E*01 
.281E*01 
.310Е+01 
.370Е+01 
1.855E+02 
1.668E+03 
6.103E+03 
1.317E+04 
3.459E403 
14 

.785E+01 
.785E+01 
.787E+01 
.789E+01 
.793E+01 
.799E*01 


O о о о о о Օ ՀՎ Վ Վ Վ Վ Վ Վ Վ Վ ՀՎ -Վ ՀՊՎ 


Հ ` Վ ч Վ ՀՎ 


1.156E404 
3.661E+03 
10 

7.792E+01 
Z.793ETO! 
7.793E*01 
7.793Е+01 
7.794Е+01 
7. 797Е+01 
7.802Е+01 
7.813Е+01 
7.836Е+01 
7.875E+01 
7.937E401 
8.016E401 
8.094Е+01 
8.151E401 
8.185E+01 
8.214E401 
8.244E401 
8.275E401 
8.298E401 
8.368E401 
2.212E402 
1.947E403 
6.201E403 
1.328E404 
3.440E403 


7.800E401 
7.801E401 
7.830E401 
7.868Е+01 
7.908Е+01 
7.944Е+0 1 


IY=19 
IY=18 
IY=17 
IY=16 
IY-15 
IY-14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
IY= 


IY= 
IY= 


Թ GQ г дл O Վ о 


IY= 
ТҮ= 1 
12 
ТҮ=25 
ТҮ=24 
ТҮ=23 
ТҮ=22 
ТҮ=21 
ТҮ=20 
ТҮ=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 


O N N со о со со о о о о Վ Վ Վ а 4 


Q — 


ә о со Թ 


.800E*01 
.815Е+01 
.843Е+01 
.892E*01 
.964E*01 
.051E*01 
.125Е+01 
. 169E+01 
. 191E*01 
.213E+01 
.240E+01 
.268E+01 
.285E+01 
.376Е+01 
.651Е+02 
.205Е+03 
.260Е+03 
.336Е+04 
.424Е+03 
16 


118Е+01 


.131Е+01 
.676Е+01 
.366Е+01 
.006Е+02 
. 066Е+02 
.114E*02 
.156E*02 
.200E*02 
.249Е+02 
.300Е+02 
.334Е+02 
.331Е+02 
.289Е+02 
.222E+02 


ос N N O со о о со о о о ա Վ Վ Վ Վ Վ 


= 


3 


.800E*01 
.816Е+01 
.845Е+01 
.896Е+01 
.972E*01 
,060E*01 
.133Е+01 
, 173E401 
, 193E401 
.212E*01 
.239Е+01 
.266Е%01 
.281E*01 
.379Е+01 
.773Е+02 
.272Е%03 
.275Е+03 
.339Е+04 
.432Е+03 
17 
8. 
8. 
8. 
on 
.036Е+02 
.096E*02 
.145E*02 
.189E*02 
.230Е+02 
.266Е+02 
.288Е+02 
.288Е+02 
.267Е+02 
.245Е+02 
.263Е+02 


132E401 
267E401 
906E+01 
654E+01 
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о N N о о со о со о о соо о “а Վ Վ Վ Վ 


= 


18 


-800E+01 
-817E+01 
.848Е%01 
.901E*01 
.980Е+01 
.069E*01 
.140E*01 
.177E*01 
.194Е%01 
.212Е%01 
.238Е+01 
.264E*01 
.278E+01 
.380Е+01 
.889E*02 
.333Е+03 
.282Е+03 
. 340E* 04 
.455Е+03 


O N о о о со со со о со со соо о ча 43 ч ч 


— 


19 


.808Е+01 
.827Е+01 
.861E*01 
.918E*01 
.001E*01 
.092Е+01 
.161Е%01 
.193Е+01 
.206Е+01 
.221Е+01 
.243Е+01 
.264Е +01 
.274Е%01 
.375Е%01 
.954E*02 
.372Е+03 
.173E*03 
.280Е+04 
.710E*03 


о ԽՃ տ о со со о со о о о о о о о о NI 


— 


20 


.978E+01 
.018E*01 
.074E*01 
.158E*01 
.266E*01 
.374Е+01 
.438Е+01 
.444Е+01 
.418Е+01 
.389Е+0 1 
.359Е+01 
.305Е+01 
.311Е+01 
.621Е+01 
.342Е+02 
.743Е+03 
-404E+03 
.209Е%04 
.812Е%03 


17510 1.149E+02 
IY- 9 1.070Е+02 
IY- 8 9.539Е%01 
IY- 7  8.569E401 
IY= 6 1.112E+02 
IY= 5 7.104E+02 
IY- 4  2.858E*03 
IY- 3  6.069E*03 
IY= 2 1.048Е+04 
IY= 1 7.140Е+02 
IZ= 21 

FIELD VALUES OF EP 
17525 8.757Е%03 
IY-24 8.757Е%03 
171525 8.757Е%03 
17522 8.757Е%03 
17-21 8.757Е%03 
17220 8.757E+03 
11519 8.757Е%03 
IY-18 8.757Е%03 
17517 8.757Е%03 
17516 8.757Е%03 
IY-15  8.757E403 
IY=14 8.757Е+03 
IY=13 8.757Е+03 
IY-12  8.757E*03 
Іү=11 8.757Е+03 
17510 8.757Е+03 
IY= 9 8.757Е+03 
ту“ а 8.757E+03 
IY- 7  8.757E*03 
IY= 6 8.757Е+03 
Іү= 5 8.757Е+03 
IY= 4  8.757E*03 
IY= 3  8.757E*03 


о о о о о со о о со со о о о о ооо о о о о о о о 


.378Е+02 
.686Е+02 
.357Е+02 
.751Е+02 
.565Е+02 
.220E403 
,423E403 
.409Е+03 
.217Е+03 
.112Е+03 
22 


.747Е+03 
.747Е+03 
.747Е+03 
.747E+03 
.747E*03 
.747E*03 
.747E*03 
.747E*03 
.747Е%03 
.747Е%03 
.747E*03 
.747E*03 
.747Е%03 
.747Е%03 
.747E*03 
.747E*03 
.747Е%03 
.747E*03 
.747Е%03 
.747E*03 
.747E*03 
.747E*03 
.747E*03 
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о о о о о о о о о со о о о о о ооо о о о о о 


.736Е%03 
.736Е%03 
.736Е%03 
.736Е%03 
.736Е%03 
.736Е%03 
.736E*03 
.736E*03 
.736E*03 
.736E*03 
.736E*03 
.736E*03 
.736Е%03 
.736Е%03 
.736Е%03 
.736E*03 
.736E*03 
.736Е+03 
.736Е+03 
.736Е+03 
.737Е%03 
.737Е%03 
.737Е%03 


о о о о о о со о о о о ооо со сс оо о о о о о о 


.726Е+03 
.726E*03 
.726E*03 
.726Е%03 
.726E+03 
.726E*03 
.726E403 
.726E+03 
.726E*03 
.726Е+03 
.726Et*03 
.726Е%03 
.726Е%03 
.726Е%03 
.726E+03 
.726Е+03 
“7 2БЕ 503 
.726Е%03 
.727E+03 
„733Е+05 
7707503 
ՀԱՄԵՍՏ 
.833E+03 


юо о оо о о о о о со со со о о со Օ о о о о о 


=. 


SETOS : 
TAI SETOS 
67156403 
ՆՏԵ 
.715Е+03 
.715E+03 
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.690E+02 
.668Е+02 
.654Е%02 
.647Е+02 
.644Е%02 
.640E*02 
.598Е+02 
.240Е+02 
.619Е+02 
.283Е+02 
.768E* 02 


.883Е+02 
.883Е+02 
.882E*02 
.880E*02 
.878E*02 
.874Е%02 
.867Е+02 
.857Е+02 
.843Е+02 
.823Е+02 
.797Е+02 
.767E*02 
.737E+02 
.712E+02 
.695E+02 
.685E+02 


.859E+02 
.845Е+02 
.826E+02 
.801E*02 
.770E*02 
.737E*02 
.705Е%02 
.681E*02 
. 664E*02 
.654E*02 
.650Е+02 
.647Е+02 
.643Е+02 
,587E402 
.171E*02 
.583E*02 
.252E402 
.742E*02 


.883E*02 
.883Е+02 
.882Е+02 
.881Е+02 
.879Е+02 
.876E402 
.870Е+02 
.862E*02 
.850Е+02 
.833Е+02 
.811E+02 
.785E+02 
.760E*02 
.740E*02 
УО БЕКО 
.716Е+02 


Trys 
IY= 
IY= 
IY= 
IY= 


IY= 


г OQ A O NO O 


== 


տ N N O о о о о о о о со со о со о о о со со со со о о со O U + - 0 о о о о о 


.658E+02 
.654Е+02 
.651Е+02 
.647Е+02 
.574Е+02 
.105Е+02 
.553E402 
.226Е+02 
.721Е+02 


.884E*02 
.884E*02 
.885Е+02 
.885Е+02 
.886E*02 
.887E*02 
.889E*02 
.892E*02 
.894Е%02 
.897E*02 
.898E*02 
.897E*02 
.891E*02 
.883Е+02 
.875Е+02 
.869E*02 
.863E*02 
.859E*02 
.854Е+02 
.836Е%02 
.616E*02 
.021Еғ02 
.437E*02 
.020E*02 
.809Е+02 


= 


ՀՎ ÜU Վ Վ оо о с со о 


.662Е+02 
.659Е%02 
.656Е+02 
.651Е+02 
.576Е+02 
.094Е+02 
.553Е+02 
.228Е+02 
.723E*02 


183 


= 


O տ. ՀՎ - о Оо о о о о 


.669Е+02 
.666Е+02 
.663Е+02 
,658E402 
.582Е+02 
.093E +02 
,565E402 
.243E+02 
.740E+02 


al 


о Մտ. Վ Վ о сос њо о о OQ 


.680E+02 
.677E+02 
.673E+02 
.670Е+02 
.608Е+02 
.128E*02 
.652E*02 
.376Е+02 
.965E*02 


տ NN о о о о о о 


г 
© 


.711E*02 
.706E*02 
.699Е+02 
.694Е%02 
.595Е+02 
.120E*02 
.668Е+02 
.343Е+02 
.928Е+02 f 


IZ= 


21 


FIELD VALUES OF PI 


IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 8 
IY= 7 
IY= 6 
IY= 5 

á 

3 

2 


IY 
IY= 
IY= 
IY= 1 


IY=25 
IY=24 
IY=23 
IY=22 
IY=21 
IY=20 
ԱՐՅԱՑ 


1 
1 
] 


,048E405 
.048Е+05 
,048E405 
.048Е%05 
.048Е%05 
.048Е+05 
.048E*05 
.048Е+05 
.048Е%05 
.048Е+05 
.048Е%05 
.048Е+05 
.048E+05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е+05 
,048E405 
7, 048E405 
.048Е%05 
.048Е%05 
.048Е%05 


.048E*05 
.048Е%05 
.048Е%05 
.048Е%05 
,048E405 
.048E+05 
.048Е%05 


.048E*05 
.048E*05 
.048Е%05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е+05 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е+05 
.048E*05 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е%05 
,048E405 
.048Е%05 
.048Е+05 
.048Е%05 
,048E405 
7 048E405 
.048Е%05 
.048Е+05 


.048Е+05 
.048Е+05 
.048E*05 
.048Е%05 
.048E*05 
.048Е+05 
.048Е+05 


184 


.048Е%05 
.048Е%05 
,048E405 
,048E405 
.048E*05 
.048Е+05 
.048Е%05 
.048Е+05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е+05 
.048E*05 
..048Е+05 
.048Е%05 
.048Е%05 
.048Е+05 
.048Е%05 
.048Е%05 
.048E+05 
.048Е%05 
.048Е%05 
.048Е+05 
.048E*05 
.048Е+05 


.048Е%05 
.048Е%05 
.048Е%05 
.048Е%05 
.048E*05 
.048Е%05 
.048E*05 


.048Е+05 
.048Е%05 
.048Е%05 
:048E405 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е%05 
.048Е%05 
.048E*05 
.048E*05 
-048E+05 
.048Е+05 
.048Е+05 
. 048Е+05 
.048E*05 
.048E*05 
-048E+05 
.048Е+05 
.049Е%05 
‚049Е+05 
.049E+05 
.050E+05 
.050E*05 
.049Е+05 


.048Е%05 
.048Е+05 
.048E*05 
.048E*05 
.048Е+05 
.048E*05 
.048Е%05 


.048Е%05 
.048Е%05 
.048Е%05 
.048Е+05 
.048Е+05 
.048Е%05 
.048Е%05 
.048E+05 
.048E+05 
.048E+05 
.048E+05 
.048E+05 
.048E+05 
.048E+05 
.048E+05 
.048E+05 
.048E+05 
.049E+05 
.051E+05 
.056E+05 
.063E+05 
.065E+05 
.066E+05 
.066E+05 
.066E+05 


.048E*05 
.048E*05 
.048E*05 
.048Е+05 
.048E*05 
.048Е+05 
.048Е%05 


IY= 


IY=25 
ІҮ=24 
ГҮ=23 
IY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 


.048E+05 
.048Е+05 
,048E405 
.048Е%05 
.048Е%05 
.048E+05 
,048E405 
.048E*05 
.049Е%05 
.049Е%05 
.052Е%05 
,062E405 
.096E+05 
. 199E+05 
.267E*05 
.343Е+05 
.403Е+05 
.429E*05 


.048E*05 
,048E405 
.048E*05 
,048E405 
,048E405 
, 049E405 
.049E*05 
,050E405 
.051Е+05 
.054Е+05 
.059Е+05 
.067E*05 
.081Е+05 
.104Е+05 
, 142E405 
.198Е%05 


.048Е%05 
.048Е+05 
.048Е%05 
.048E*05 
.048Е+05 
,048E405 
.048Е+05 
.049Е%05 
.050E*05 
,053E405 
.062E+05 
.090E+05 
.179E*05 
.346Е+05 
.404E*05 
.438Е+05 
.449E*05 
.446Е+05 


.048E*05 
.048E*05 
.048Е+05 
.049Е%05 
.049E+05 
.050E+05 
.051E*05 
"053E+05 
.057E+05 
.063E+05 
.073E+05 
.090E+05 
.117E+05 
.156E*05 
.210Е+05 
.276Е+05 


185 


.048Е%05 
.048Е+05 
.048Е%05 
,048E405 
.048E*05 
.049Е+05 
.049Е+05 
.051E*05 
.054Е%05 
.063Е+05 
.086Е%05 
.145Е%05 
.281E+05 
.413E+05 
.437E+05 
.445Е%05 
.446Е%05 
.443Е+05 


.049E*05 
.049E*05 
.049E*05 
.050Е+05 
.051Е+05 
.052Е+05 
.055Е+05 
.060E*05 
.068Е+05 
.081Е+05 
.100Е+05 
.129Е+05 
, 169E405 
.221Е%05 
.282Е%05 
.342Е+05 


.048Е%05 
.048E*05 
.049Е%05 
.049Е%05 
.050Е%05 
.052E*05 
,055E405 
.063E+05 
.078E*05 
.109E*05 
.168Е%05 
.268Е+05 
.394Е+05 
.421Е+05 
.425Е+05 
.425Е+05 
.424Е+05 
.423Е+05 


.049Е%05 
.050Е+05 
.050Е+05 
,052E405 
.054Е+05 
.057Е+05 
. 063Е+05 
.072Е+05 
.087E*05 
.108E*05 
‚138Е+05 
‚179Е+05 
.229E+05 
.286Е+05 
.340E405 
, 384E405 


.049Е+05 
.049Е+05 
1.050Е+05 
.052E+05 
.055E+05 
.061E+05 
.072E+05 
.092E+05 
.127E+05 
.184E+05 
.267E+05 
.362Е+05 
.427Е+05 
.425Е+05 
.424Е+05 
.423Е+05 
.424Е+05 
.421Е+05 


.050Е+05 
.050Е%05 
.051Е+05 
.053Е+05 
.056Е+05 
.061Е+05 
.069E*05 
.081E*05 
.099E*05 
. 125E+05 
.161E+05 
.208E+05 
.262E+05 
.317E+05 
.364Е+05 
.399Е+05 


N ыч соло Վ со WO 


17 
IY= 
IY= 
IY= 
IY= 
IY= 


IY= 
IY= 


m 


11-25 
17-24 
LY=23 
LY=22 
IY=21 
IY=20 
IY=19 
IY=18 
IY=17 
IX-16 
1Х<15 
IY=14 
ГҮ-13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 


Թ G К дл с Վ со 


-— 


.271E*05 
.349Е+05 
.410E+05 
.432Е+05 
.430E+05 
.430Е+05 
.429Е%05 
.430Е%05 
.427Е+05 


.050E*05 
.051E*05 
.052E*05 
.055Е%05 
.059E*05 
.065E*05 
.075E*05 
.090E*05 
.112E*05 
.144Е%05 
.186Е%05 
.237Е+05 
ӘТЕЗ05 
.341Е%05 
,381E405 
-406E+05 
.419Е+05 
.423Е+05 
.424Е%05 
.424Е%05 
.423Е+05 
.422Е%05 
.422Е%05 
.425E*05 
.421Е%05 


.344Е+05 
.398Е+05 
.426E* 05 
.431Е+05 
.432Е+05 
.432Е+05 
.432Е+05 
.434Е%05 
,430E405 


.050E*05 
.051Е%05 
.052Е%05 
.055E+05 
.059E+05 
.066E*05 
.076E*05 
.092Е%05 
.115E+05 
.148E*05 
.191E*05 
.243Е+05 
.297Е+05 
.345Е+05 
.382Е+05 
-405E+05 
.415Е+05 
.419Е%05 
.419E*05 
.419Е+05 
.417Е+05 
.416E*05 
.416Е+05 
.419Е+05 
.415Е+05 


186 


.390Е+05 
.420Е%05 
.430Е+05 
.431Е+05 
.431Е+05 
.431Е+05 
.431E*05 
.434Е%05 
.430Е+05 


.050Е+05 
.051E*05 
.052Е%05 
,055E405 
.059E*05 
.066Е%05 
.077Е%05 
.094Е%05 
.118Е%05 
.151E*05 
.195Е%05 
.247Е%05 
.300Е+05 
,346E405 
.381E405 
.401E*05 
.410E*05 
.412Е%05 
.412Е%05 
.412Е+05 
.409Е+05 
.407E*05 
.407E*05 
.409Е+05 
.405E*05 


.413Е+05 
.426Е+05 
.429Е+05 
.430Е%05 
.429Е%05 
.429Е+05 
.429Е+05 
.432Е+05 
.427Е+05 


.050Е+05 
.051Е+05 
.053Е%05 
.055Е%05 
.060Е%05 
.067Е%05 
.078Е%05 
.095Е%05 
.120Е%05 
.154Е%05 
.198Е%05 
.250Е%05 
.301Е+05 
.345Е+05 
.376E*05 
.394Е+05 
.402E*05 
.403Е%05 
.403Е%05 
.402Е%05 
.392Е+05 
.385Е+05 
.379Е+05 
.379E*05 
.377E*05 


.418E*05 
.426Е+05 
.427Е+05 
.427Е+05 
.427Е+05 
.426Е%05 
,426E405 
.429Е+05 
.425Е%05 


.050Е+05 
.051Е+05 
.052Е+05 
.055Е%05 
.060E*05 
.067E*05 
.078E*05 
.095E*05 
.120E*05 
.155Et05 
.199E*05 
.249E+05 
.297Е+05 
.338Е+05 
.366Е+05 
.382Е+05 
.388Е+05 
.389Е+05 
.389Е%05 
. 384E*05 
. JASE* 05 
.303Е+05 
.237E*05 
.145E*05 
.080E*05 


І2= 

IY=25 
IY=24 
IY=23 
HE22 
IWE2I 
17520 
17519 
17518 
17517 
17516 
17515 
17514 
19-15 
17512 
17511 
17510 
IY= 9 
i 8 
IY= 
17» 
iv 
Ti 
IY= 
i= 
IY= 1 
IZ- 


թ OQ г ол е N 


16 


1 
1 
21 


.050E*05 
.051E*05 
7052Е%05 
.055Е+05 
.059Е+05 
.065E*05 
.076E*05 
.091Е%05 
. 114ԵՒ05 
.145Е+05 
‚185Е+05 
.229E*05 
ՀԱՂԻՀ05 
.305Е+05 
.329Е%05 
.342Е+05 
.347Е%05 
.348Е+05 
.347Е+05 
FOSSETUS 
.268E*05 
.217Е%05 
ӘТӘЗИЕНЕ0 5 
. 098Е+05 
.087E*05 


17 

1.049E*05 
1.049E*05 
1.049E*05 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E405 
1.049E*05 
1.049E*05 
1.049E*05 
1.045E*05 
9.975E*04 
22 


FIELD VALUES OF PP (density) 


11525 
IX-24 
IX-23 
17-22 
IY=21 
Tr 20 
IY=19 


1 
1 
1 


.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е%00 
.835E*00 
.835Е+00 


1.835Е+00 
1.835Е+00 
1.835Е+00 
1.835E+00 
1.835E+00 
1.835E+00 
1.835E+00 


187 


18 


.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
, 835E400 


19 


.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 


20 


.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 


IY=18 
IY=17 
IY=16 
IY=15 
IY=14 
17515» 
17512 
17511 
17510 
175 9 
Ly 
IY= 
IY= 
IY= 
TY 
IY= 
IY= 


N UA с G с Վ о 


12 
17525 
1724 
175235 
1412 
IY=21 
IY=20 
IY=19 
IY=18 
ВЕЕ 
17516 
17515 
IT-14 
IY=13 
IY=12 
IY=11 
IY=10 


.835Е+00 
.835Е%00 
.855Е%00 
.835Е+00 
.835Е+00 
.,835ET00 
,835E400 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е%00 
.835E*00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835E*00 
.835Е+00 


.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.836E+00 
.836E+00 


.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 
.835E+00 


.835E+00 
.835E+00 
.835Е+00 
.835Е+00 
.835Е%00 
.835E+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.836Е+00 
.836Е+00 
.837Е+00 


188 


,835E400 
.835Е+00 
.835Е+00 
.835Е+00 
.855Е%00 
.835E+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.836Е+00 
.836Е+00 
.836Е+00 
.836Е+00 
.836Е+00 


.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е%00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
-836E+00 
.836E+00 
.836Е+00 
.837Е+00 
.839Е%00 
.843Е+00 


.835Е%00 
.835Е%00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.836Е+00 
.836Е+00 
.836Е+00 
.837Е+00 
.837Е%00 
.837Е%00 
.837Е%00 
,837Е%00 


.855Е%00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.836Е+00 
.836Е+00 
.836E*00 
.836Е+00 
.838Е+00 
.840E*00 
.844Е%00 
.854Е+00 
.874Е%00 


.835Е+00 
.835Е%00 
.835Е+00 
.835E*00 
.835Е+00 
.835Е+00 
.835Е+00 
.835Е+00 
.835E*00 
.836Е+00 
.836Е+00 
.839Е+00 
:,845E400 
.854Е+00 
.857Е%00 
.858E*00 
.859E+00 
.859E+00 


.835Е+00 
.835E+00 
.835Е+00 
.835Е+00 
.835Е+00 
.836Е+00 
.836Е+00 
.836Е+00 
.837E*00 
.838E+00 
.840Е%00 
.844Е%00 
.852Е%00 
.866Е%00 
.891Е%00 
.936Е+00 


IY= 
IY= 
IY= 
IY= 
IY= 
IY= 


юзю GQ Վ дл G Վ шо о 


IY= 
IY= 
IZ 
ІҮ-25 
17-24 
17-23 
17222 
17-21 
17-20 
174219 
17218 
17517 


«առի 


IY-16 


IY=15 
IY=14 
IY=13 
IY=12 
IY=11 
IY=10 
Jy= 9 
IX 
Ix- 
IY= 


H 
ња 
II 
о ы г дл с м с 


IY= 
IY= 
IY= 
IY= 


— 


= = 


о о ә N г 


= ы 


N N N N N N ә NY (г г 


.837Е+00 
.841Е%00 
.853Е+00 
.897Е%00 
.028Е+00 
.112Е%00 
.205Е+00 
.277Е+00 
.509Е%00 


.835E+00 
.835E+00 
.836Е+00 
.856Е%00 
.836Е+00 
.836E*00 
.837Е+00 
.838Е+00 ` 
.840E*00 
.843E+00 
.849Е+00 
.859E*00 
.878Е%00 
.908E+00 
.956E+00 
.026E*00 
.117Е%00 
.213Е+00 
.286Е+00 
.312Е+00 
.310E+00 
.310E+00 
.309E+00 
.311E+00 
.307Е+00 


-— 


թ о N о о г 


ասի 


P t N N N NY ә NY [D [D [9 


-841E+00 
.853Е+00 
.890E*00 
.002Е%00 
.209E+00 
.279Е%00 
.320Е+00 
.333Е+00 
.329Е+00 


.836Е+00 
.836Е+00 
.836Е+00 
.836Е+00 
.837Е+00 
.838Е+00 
.839Е+00 
-842E+00 
.847E*00 
.855E*00 
.868Е%00 
.890E+00 
.924Е%00 
.974Е+00 
. 041Е+00 
.123Е+00 
.206Е+00 
.272E* 00 
.306Е+00 
.312Е+00 
.313Е+00 
.313Е+00 
.312E+00 
.315E+00 
.310E+00 
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— 


9 о о N N г 


«մ յ 4 ы 


о N N N N N о о о [D м г 


.854Е%00 
.884Е+00 
.959Е+00 
.130Е+00 
.290Е+00 
.319Е+00 
.328Е+00 
. 329Е+00 
.325Е+00 


.836Е+00 
.836Е+00 
.837Е+00 
.837Е+00 
.839Е+00 
.841Е+00 
.845Е+00 
.851Е+00 
.861Е+00 
.877E*00 
.902E+00 
.939E+00 
.990E+00 
.055E+00 
.130E+00 
.204E+00 
.262E+00 
.298E400 
.310E+00 
.312E+00 
.312E+00 
.312E+00 
„311Е+00 
.315E+00 
.310E+00 


— 


= and 


N џ ԺԹ NY ос о ос о мо NY [9 D 


NY N N N NNDD 


.914E+00 
.989E+00 
„11ЗЕ+00 
.267E*00 
.300Е+00 
.304Е+00 
.304Е+00 
.303Е+00 
.301E+00 


.837E+00 
.837E+00 
.838Е+00 
.840Е+00 
.843Е+00 
.847Е+00 
.855E+00 
.867E+00 
.885E+00 
.912E+00 
.951E+00 
.002E+00 
.065E*00 
.135Е+00 
.202Е+00 
.255Е+00 
.290Е%00 
.506Е%00 
.510Е%00 
.510ЕҒ00 
.310E+00 
.309Е+00 
.309Е+00 
.312Е+00 
.307Е+00 


N о о о о о ә ғ г 


e 


P t N N N N о оо о о мо NY NW 


.009Е%00 
.112Е%00 
.229Е%00 
.307Е%00 
.305Е%00 
.303Е%00 
.302Е%00 
.303Е+00 
.300Е%00 


.838Е+00 
.838Е+00 
.839Е+00 
.842Е%00 
.846Е%00 
.852Е+00 
.862E*00 
.877Е+00 
.901Е+00 
.934Е+00 
.980Е+00 
.039Е+00 
- 106E+00 
.173Е+00 
.231Е+00 
.273Е+00 
.296Е+00 
. 305E*00 
.307Е+00 
.307Е+00 
.306Е+00 
.306Е+00 
.306Е+00 
.309Е+00 
.304Е+00 


IY=25 


ITY=24 


IY=23 
IY=22 
17521 
17520 
17519 
17518 
17517 
17Հ16 
147515 
17214 
ГҮ=13 
IY=12 
IY=11 
IY=10 
IY= 9 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 


о GQ A տ с Վ Օ 


IZ 
17-25 
17Հ24 
17523 
174222 
IY=21 
IY=20 
IY=19 
IY=18 


11 

1.838E+00 
1.839E+00 
1.841E+00 
1.844E+00 
1.849E+00 
1.857E+00 
1.870E+00 
1.889E+00 
1.918E+00 
1.958E+00 
2.011E+00 
2.075E+00 
2.142E+00 
2.203E+00 
2.251E+00 
2.282E+00 
2.297E+00 
2.302E+00 
2.303E+00 
2.303E+00 
2.302E+00 
2.301E+00 
2.301E+00 
2.304E+00 
2.299E400 
16 

1.838E400 
1.839E+00 
1.841E+00 
1.844E+00 
1.849E+00 
1.858E+00 
1.871Е+00 
1.891Е%00 


12 


ափ — 


» Թ џ N Թ Թ Թ Թ Թ ԾԹ Թ Թ Թ ԾԹ ԾԹ ND 
J 


-— and 


.838E+00 
.839E+00 
.841E+00 
.844Е+00 
.849Е+00 
.858Е+00 
.871Е+00 
,892E400 
.922E400 
.963Е+00 
.017E*00 
.082E+00 
„149Е+00 
„208Е+00 
„252Е+00 
„280Е+00 
.293Е%00 
.297E+00 
.297E+00 
.297E+00 
„295Е+00 
.294E+00 
.294E+00 
„297Е+00 
„292Е+00 


.837Е+00 
.837Е+00 
.837Е+00 
.837Е+00 
.8375+00 
.837Е+00 
.837Е+00 
.837Е+00 
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13 

1.838Е+00 
1.839E+00 
1.841E+00 
1.844E+00 
1.850E+00 
1.859E+00 
1.873E+00 
1.894E+00 
1.925E+00 
1.968E+00 
2.023Е+00 
2.088Е+00 
2.153Е+00 
2.209Е+00 
2.251Е+00 
2.275Е+00 
2.286E*00 
2.289E*00 
2.289E*00 
2.288E400 
2.285E400 
2.283E400 
2.282Е+00 
2.286Е+00 
2.281E400 
18 


14 


RP ` ND Թ Թ ым ә о ԾԹ Թ Թ Թ ԾԹ -Ծ 


= 
oO 


.838E*00 
.839Е%00 
.841Е+00 
.844Е+00 
.850Е%00 
.859Е%00 
.874Е+00 
.895Е%00 
.927Е%00 
.971Е+00 
.027E*00 
.091E+00 
.154E*00 
.208Е+00 
.246E*00 
.268Е+00 
.276Е+00 
.278Е+00 
.278Е+00 
.277Е%00 
.265Е+00 
.256E*00 

.249E*00- 
.250Е%00 
.247Е+00 


15 

1.838Е+00 
1.839E+00 
1.841E+00 
1.844E+00 
1.850E+00 
1.860Е+00 
1.874Е+00 
1.896Е+00 
1.928Е+00 
1.972Е+00 
2.027Е+00 
2.090Е+00 
2.150Е+00 
2.199Е+00 
2.233Е+00 
2.252Е+00 
2.259Е+00 
2.261Е+00 
2.261Е+00 
2.255Е+00 
2.205Е+00 
2.156Е+00 
2.074Е+00 
1.959Е+00 
1.876Е+00 
20 


IY=17 
IY=16 
14515 
17514 
ІҮ=13 
ІҮ=12 
17511 
17510 
IY= 9 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IY= 
IZ= 


Ñ G гг л а м Q 


«փ 


1.920E+00 
1.960E+00 
2.009E*00 
2.065E*00 
2.117E*00 
2.159E*00 
2.188E+00 
2.204E*00 
2.210E400 
2.211E+00 
2.210E+00 
2.199E+00 
2.114E+00 
2.050E*00 
1.968E+00 
1.899E+00 
1.885E+00 
21 


1 
22 


.837E+00 
.837Е+00 
.837E*00 
.857Е%00 
.837Е%00 
.837Е%00 
.837Е%00 
.837Е+00 
.857Е%00 
.857Е%00 
.837E* 00 
.837Е+00 
.836E* 00 
.836E*00 
.836Е+00 
.832Е%00 
.769Е%00 


JE JE JE JE JE JE JE JE HE JE JE JE JE JE JE JE JE JE JE JE JE JE JE JE JE JE JE JE J€ JE J€ JE JE JE JE JE JE JE J€ J€ JE JE HE FE JE JE JE JE JE JE J€ J€ F€ H€ F€ F€ X€ X€ X€ X€ 
USER:- NAME OF FILE CONTAINING FINAL FLOW FIELDS IS 111 

LAST SWEEP 100 

LAST STEP 1 
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APPENDIX I 
PROGRAM CALCULATES THE DISTRIBUTION QUANTITIES FOR TURBULENT 
FLOW 


THIS PROGRAM CF,ST,Q,H OVER THE VANE FOR 
C TURBULENT FLOW 
REALX8 V1(20),V2(20),H(20),W(20),ST(20),0(20),CF(20),RA(20) 
REALX8 BZFRAC(20),EMU,GPGP, PR,HW, ZCOR(20) , HCON( 20) ,RO(20) 
REALX8 REZ(20),CFT(20),Z(20),TAW(20),V0(20),D1(20),D2(20) 
REALX8 P(20),V(20),ARG(20),KE(20) 
INTEGER IZ 
GH=6 .4E-03 
GDz10xGH 
GL295 .2E-03 
GTL=1.24xGL 
GBETA=4. 
GBETA=GBETAX3 . 1415927/180 
GTAB=TAN(GBETA) 
DELMAX=2.E-03 
GNBL=5. 
GPWR=2. 
EMU=1.E-05 
ROE=1.835 
PE=1.048E+05 
WE=888.5 
ВЏЏ-О .5ХВОЕХИЕЖХО 
GAMA=1.35 
RW=287. 
CP=GAMAXRW/ (GAMA-1. ) 
HW=323 . XCP 
НО=555.5%ОР 
РЕ=0.9 
GPCP=EMU/ PR 
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с с су су су 


10 


66 


67 


68 


69 


20 


DO 10 IZ=1,6 

V1(IZ)2(1./5. JXXGPWRXDELMAX 

Y2(IZ)2(2./5.) XXGPWRXDELMAX 

CONTINUE 

BZFRAC(1)=42.373E-3 

DO 66 IZ=2,8 
BZFRAC(IZ)242.373E-3*BZFRAC(IZ-1) 

DO 67 IZ-9,14 
BZFRAC(IZ)284.75E-34BZFRAC(IZ-1) 

DO 68 IZ=15,16 
BZFRAC(IZ)242.73E-3*BZFRAC(IZ-1) 

DO 69 IZ=17,20 
BZFRAC(IZ)=11.295E-3+BZFRAC(IZ-1) 

DO 20 IZ=6,20 
V1(IZ)2V1(1)X(GD-(BZFRAC(IZ)-BZFRAC(5))XGTABXGTL)/GD 
V2(IZ)-V2(1)X(GD-(BZFRAC(IZ)-BZFRAC(5))XGTABXGTL)/GD 
Z(IZ)-(BZFRAC(IZ)-BZFRAC(5))xGTL 

READ(5,12) H(IZ),W(IZ),RO(IZ),KEC(IZ) | 
CF(IZ)=(2.⁄/(WExx2))x(RO(IZ)ZROE)x(KE(IZ)Z3.33) 
REZ(IZ)SRO(IZ)XWEXZ(IZ)/EMU 
ARG(IZ)-0.06XREZ(IZ) 
CFT(IZ)-(0.455/(DLOG(ARG(IZ)))XX2)X0.4 
CFT(IZ)2(0.455/(DLOG(ARG(IZ)))XX2)X0.77 
ST(IZ)E(CF(IZ)/2. JX(PRIXX(-2./3.) 
HCON(IZ)-ST(IZ)XROEXWEXCP 

Q(IZ)E(H(IZ)/CP)X(0 .928XHO-HW) 

WRITE(8,18) СЕ(12),5Т(12),0(12),Н(12),2(12) 
WRITE(8,19) Z(IZ),CF(IZ) 

WRITE(8,27) Z(IZ),ST(IZ) 

WRITE(8,21) Z(IZ),Q(IZ) 

WRITE(8,22) Z(IZ),H(IZ) 

WRITE(8,24) Z(IZ),CFT(IZ) 

WRITE(8,28) REZ(IZ),CFT(IZ) 

CONTINUE 


12 FORMAT(3X,E10.3,3X,E10.3,3X,E10.3,3X,E10.3) 
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Q ( а а а 


18 
19 
27 
21 
22 
24 
28 


FORMAT(3X,E10. 
FORMAT(3X,E10. 
FORMAT(3X,E10. 
FORMAT(3X,E10. 
FORMAT (3X,E10. 
FORMAT (3X,E10. 
FORMAT (3X,E12. 
STOP 

END 


3,3X,E10 
3,3X,E10 
3,3Х,Е10 
3,3Х,Е10 
3,3X,E10 
355X;E10 
5,3Х,Е12 


.3,3X,E10.3, 3X, E10.35, 3X, E10.3) 


.3) 
.3) 
.3) 
.3) 
. 3) 
25) 


194 


APPENDIX J 
INPUT FILE FOR PRORAM CALCULATING TURBULENT FLOW QUANTITIES 


H(IZ) W(IZ) RO(CIZ) KE(CIZ) 
5.690E405 7.369E+02 2.309 5.230E+03 
5.372E+05 6.452E+02 2.329 4.126E*03 
5.194E+05 5. 906E+02 2.525 3.531E+03 
5.258E+05 6.019E+02 2.301 3.667E+03 
5.262E+05 6.004E+02 2.300 3.661E+03 
5.252Е%05 5.964Е%02 2.307 3.625E+03 
5.233E+05 5.907E+02 2.310 3.572E403 
5.211E+05 5 .842E+02 2.310 3.513Е+03 
5.190Е+05 5.782E*02 2.307 3.459E+03 
5.180E+05 5.756E*02 2.304 3.440Е+03 
5.170E*05 5.735E*02 7033 | 8.424E*03 
5.168E+05 5.737E402 2-292 3.432E403 
5.165B+05 5.754E+02 2.281 3.455E+03 
5.172E+05 5.976E+02 2.247 3.710E+03 
5.163Е+05 5.928E*02 1.876 3.812E403 
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APPENDIX K 
NOMENCLATURE 


Constants used in turbulent model 
Skin friction coefficient 

Heat transfer coefficient 

Mach number 

Pressure 

Prandtl number 

Heat flux 

Revnolds number 

Stanton number 


Temperature 


GREEK LETTER SYMBOLS 


Boundary layer thickness 

Dynamic viscosity 

Density 

Constants used in turbulent model 
Any property at the grid node 
Kinematic viscosity | 


SUBSCRIPTS 


Compressible value 

Incompressible value 

Effective value 

Turbulent quantity 

Laminar quantity 

Local value in the flow direction 


Free stream value 
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